(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    312226,       7129]
NotebookOptionsPosition[    299968,       6902]
NotebookOutlinePosition[    300309,       6917]
CellTagsIndexPosition[    300266,       6914]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
No Better Time Than Now
Future Uncertainty and Private Investment Under Dictatorship\
\>", "Title",
 CellChangeTimes->{{3.70530251312048*^9, 3.705302522627125*^9}, {
  3.73712267151752*^9, 3.737122689727468*^9}, {3.745734856244747*^9, 
  3.7457348584582047`*^9}},ExpressionUUID->"4635d7b6-b396-4c99-a067-\
89100240e7aa"],

Cell["\<\
Authors: Michael Albertus and Victor Gay.
Date: September 2018

Accepted at Economics & Politics\
\>", "Text",
 CellChangeTimes->{{3.7053025389806376`*^9, 3.705302554621478*^9}, {
  3.7088598361906123`*^9, 3.708859836747944*^9}, {3.7371225426608725`*^9, 
  3.7371225441632648`*^9}, {3.7457348623591404`*^9, 
  3.7457348810782804`*^9}},ExpressionUUID->"1d49a68f-38c7-4b00-868e-\
72f167e973c3"],

Cell["\<\
This Mathematica notebook contains the code to replicate the figures in the \
paper and in the appendix:

\tFigure 2: Densities of Types of Potential Autocrats
\tFigure 3: Elite Investment under Two Regime Variances
\tFigure 4: Elite Investment under Two Regime Variances and Two Informational \
Environments
\t
\tFigure G.1: Elite Investment and Discount Rate\
\>", "Text",
 CellChangeTimes->{{3.7378903061733475`*^9, 3.737890394083193*^9}, {
  3.7457348894999375`*^9, 
  3.7457348904932384`*^9}},ExpressionUUID->"ef4cfd5b-ff28-462c-bd6b-\
bc3585290e50"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cm", "=", 
  RowBox[{"72", "/", "2.54", "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"define", " ", "cm"}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{
  3.70702692295942*^9, 3.707734113302644*^9, 3.7371225469329123`*^9, {
   3.737890422351403*^9, 3.7378904296521473`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"1f2cdd7f-cf20-4b5d-9ef9-d0d6b6932f0b"],

Cell[BoxData["28.346456692913385`"], "Output",
 CellChangeTimes->{3.705310621501484*^9, 3.7070269265287333`*^9, 
  3.7077341155127287`*^9, 3.708859833176225*^9, 3.708948797439695*^9, 
  3.709262902704708*^9, 3.737122549185503*^9, 3.73789043367216*^9, 
  3.737890603236417*^9, 3.7457349159959793`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"5aad8b8e-ba49-4758-8a62-44ad1fff5b17"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "@", 
  RowBox[{"NotebookDirectory", "[", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"set", " ", "the", " ", "directory", " ", "automatically"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.7070453257064056`*^9, 3.707045325737724*^9}, {
  3.7378904056820498`*^9, 3.7378904162837667`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"9f4fa410-a465-4718-999a-6db33fba0329"],

Cell[BoxData["\<\"C:\\\\Users\\\\gay\\\\Dropbox\\\\Projects \
Done\\\\Autocratic Volatility and Democratization\\\\Investment Under \
Dictatorship\\\\Paper\\\\E&P\\\\E&P R&R\"\>"], "Output",
 CellChangeTimes->{3.7070453279674497`*^9, 3.7077341182294445`*^9, 
  3.7088598393400006`*^9, 3.708948800009108*^9, 3.70926290510948*^9, 
  3.7371225550485997`*^9, 3.737122716875268*^9, 3.7378904357162347`*^9, 
  3.73789060328328*^9, 3.7457349161815386`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"31241c63-0b06-4ede-bd58-27d68881b39b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define functions", "Section",
 CellChangeTimes->{{3.7053025657786818`*^9, 
  3.705302568130721*^9}},ExpressionUUID->"51227698-1906-47de-8592-\
9ca843394c0e"],

Cell[CellGroupData[{

Cell["Density of Types", "Subsection",
 CellChangeTimes->{{3.705302617937583*^9, 
  3.705302622997372*^9}},ExpressionUUID->"db4f3aca-d6de-4d0a-a66b-\
020266b69576"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"typedens", "[", 
   RowBox[{"min_", ",", "max_", ",", "\[Theta]_"}], "]"}], "=", 
  RowBox[{"PDF", "[", 
   RowBox[{
    RowBox[{"UniformDistribution", "[", 
     RowBox[{"{", 
      RowBox[{"min", ",", "max"}], "}"}], "]"}], ",", "\[Theta]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.7053026259865046`*^9, {3.7053026772318163`*^9, 3.7053027346535416`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"400843a7-d3ad-4ef4-a46a-faa7741c84d1"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox["1", 
         RowBox[{"max", "-", "min"}]], 
        RowBox[{"min", "\[LessEqual]", "\[Theta]", "\[LessEqual]", "max"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.705302739050992*^9, 3.7053105508563175`*^9, 
  3.707026939227188*^9, 3.7070445396824336`*^9, 3.7078255215027604`*^9, 
  3.708859860938032*^9, 3.7089488085136538`*^9, 3.7092629079929457`*^9, 
  3.7371225600098085`*^9, 3.7378904387964816`*^9, 3.7378904807240314`*^9, 
  3.737890603298917*^9, 3.7457349163378067`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"78b46416-9390-43bb-ba19-3e83800a7c9d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Bounds of Type Distribution", "Subsection",
 CellChangeTimes->{{3.7053027634723997`*^9, 
  3.7053027728078375`*^9}},ExpressionUUID->"b00560e8-ae87-4604-801c-\
4f4100ce5f36"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "[", "\[Sigma]2\[Theta]_", "]"}], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"3", "*", "\[Sigma]2\[Theta]"}], ")"}], "^", ".5"}]}]], "Input",
 CellChangeTimes->{{3.705302776266924*^9, 3.7053028010465584`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"a1371296-1b18-4329-ae69-3ca047cff388"],

Cell[BoxData[
 RowBox[{"1.7320508075688772`", " ", 
  SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]], "Output",
 CellChangeTimes->{3.7053028021471853`*^9, 3.707026944335444*^9, 
  3.707044542182501*^9, 3.707734128990118*^9, 3.7088598632392435`*^9, 
  3.7089488399823203`*^9, 3.7092629104183187`*^9, 3.737122561042453*^9, 
  3.7378904405475097`*^9, 3.737890482678917*^9, 3.7378906033145304`*^9, 
  3.745734916369089*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"525d8c10-2470-4e6b-bb0b-25a667cacade"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Investment Ratios", "Subsection",
 CellChangeTimes->{{3.7077341526146665`*^9, 
  3.707734155018964*^9}},ExpressionUUID->"fbb91763-8698-4d68-8045-\
1739fb4b4756"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ratio1", "[", 
   RowBox[{
   "\[Sigma]2\[Theta]1_", ",", "\[Sigma]2\[Theta]2_", ",", "\[Mu]_", ",", 
    "\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"b", "[", "\[Sigma]2\[Theta]2", "]"}], 
         RowBox[{"b", "[", "\[Sigma]2\[Theta]1", "]"}]], "*", 
        FractionBox[
         RowBox[{
          RowBox[{"b", "[", "\[Sigma]2\[Theta]1", "]"}], "-", "\[Mu]", "+", 
          "\[Theta]1"}], 
         RowBox[{
          RowBox[{"b", "[", "\[Sigma]2\[Theta]2", "]"}], "-", "\[Mu]", "+", 
          "\[Theta]2"}]]}], ",", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"b", "[", "\[Sigma]2\[Theta]2", "]"}], 
          RowBox[{"b", "[", "\[Sigma]2\[Theta]1", "]"}]], "*", 
         FractionBox[
          RowBox[{
           RowBox[{"b", "[", "\[Sigma]2\[Theta]1", "]"}], "-", "\[Mu]", "+", 
           "\[Theta]1"}], 
          RowBox[{
           RowBox[{"b", "[", "\[Sigma]2\[Theta]2", "]"}], "-", "\[Mu]", "+", 
           "\[Theta]2"}]]}], ">", "0"}]}], "}"}], "}"}], ",", "False"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7077341582028475`*^9, 3.7077342430976763`*^9}, {
  3.7077343388889475`*^9, 3.7077344477660637`*^9}, {3.7077377995901194`*^9, 
  3.70773787546804*^9}, {3.707738065775689*^9, 3.707738068837579*^9}, {
  3.707825861610684*^9, 3.7078259301490407`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"1e1a9ea9-88ca-4ee1-b2f1-d814d071c14f"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox[
         RowBox[{"1.`", " ", 
          RowBox[{"(", 
           RowBox[{"\[Theta]1", "-", "\[Mu]", "+", 
            RowBox[{"1.7320508075688772`", " ", 
             SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]}]}], ")"}], " ", 
          SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}], 
         RowBox[{
          SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"], " ", 
          RowBox[{"(", 
           RowBox[{"\[Theta]2", "-", "\[Mu]", "+", 
            RowBox[{"1.7320508075688772`", " ", 
             SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}]}], ")"}]}]], 
        RowBox[{
         FractionBox[
          RowBox[{"1.`", " ", 
           RowBox[{"(", 
            RowBox[{"\[Theta]1", "-", "\[Mu]", "+", 
             RowBox[{"1.7320508075688772`", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]}]}], ")"}], " ", 
           SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}], 
          RowBox[{
           SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"], " ", 
           RowBox[{"(", 
            RowBox[{"\[Theta]2", "-", "\[Mu]", "+", 
             RowBox[{"1.7320508075688772`", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}]}], ")"}]}]], ">",
          "0"}]},
       {"False", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.707734448767542*^9, 3.707737836722929*^9, {3.707737867029435*^9, 
   3.7077378770152397`*^9}, 3.707738069547617*^9, {3.7078258807483873`*^9, 
   3.7078259305159426`*^9}, 3.7088600160532985`*^9, 3.7371225641267567`*^9, 
   3.7378904845395527`*^9, 3.7378906033301663`*^9, 3.74573491641157*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"aafc43ee-5465-41db-853d-dc5a646b7be2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ratio1bold", "[", 
   RowBox[{
   "\[Sigma]2\[Theta]1_", ",", "\[Sigma]2\[Theta]2_", ",", "\[Mu]_", ",", 
    "\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"b", "[", "\[Sigma]2\[Theta]2", "]"}], 
         RowBox[{"b", "[", "\[Sigma]2\[Theta]1", "]"}]], "*", 
        FractionBox[
         RowBox[{
          RowBox[{"b", "[", "\[Sigma]2\[Theta]1", "]"}], "-", "\[Mu]", "+", 
          "\[Theta]1"}], 
         RowBox[{
          RowBox[{"b", "[", "\[Sigma]2\[Theta]2", "]"}], "-", "\[Mu]", "+", 
          "\[Theta]2"}]]}], ",", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"b", "[", "\[Sigma]2\[Theta]2", "]"}], 
          RowBox[{"b", "[", "\[Sigma]2\[Theta]1", "]"}]], "*", 
         FractionBox[
          RowBox[{
           RowBox[{"b", "[", "\[Sigma]2\[Theta]1", "]"}], "-", "\[Mu]", "+", 
           "\[Theta]1"}], 
          RowBox[{
           RowBox[{"b", "[", "\[Sigma]2\[Theta]2", "]"}], "-", "\[Mu]", "+", 
           "\[Theta]2"}]]}], ">", "1"}]}], "}"}], "}"}], ",", "False"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.708148963644004*^9, 3.708149000806779*^9}, {
  3.708149050228583*^9, 3.708149051079739*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"8151f728-2e3a-44d7-8ef3-022d1a66806a"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox[
         RowBox[{"1.`", " ", 
          RowBox[{"(", 
           RowBox[{"\[Theta]1", "-", "\[Mu]", "+", 
            RowBox[{"1.7320508075688772`", " ", 
             SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]}]}], ")"}], " ", 
          SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}], 
         RowBox[{
          SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"], " ", 
          RowBox[{"(", 
           RowBox[{"\[Theta]2", "-", "\[Mu]", "+", 
            RowBox[{"1.7320508075688772`", " ", 
             SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}]}], ")"}]}]], 
        RowBox[{
         FractionBox[
          RowBox[{"1.`", " ", 
           RowBox[{"(", 
            RowBox[{"\[Theta]1", "-", "\[Mu]", "+", 
             RowBox[{"1.7320508075688772`", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]}]}], ")"}], " ", 
           SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}], 
          RowBox[{
           SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"], " ", 
           RowBox[{"(", 
            RowBox[{"\[Theta]2", "-", "\[Mu]", "+", 
             RowBox[{"1.7320508075688772`", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}]}], ")"}]}]], ">",
          "1"}]},
       {"False", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.7081490014632034`*^9, 3.7081490519486084`*^9, 
  3.708860025267663*^9, 3.737122566357808*^9, 3.7378904867897515`*^9, 
  3.7378906033301663`*^9, 3.745734916427229*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"b56f2c5e-0bd3-4dfd-9015-a591480e2a07"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Quadratic Cost Function", "Subsection",
 CellChangeTimes->{{3.7053028119839354`*^9, 
  3.705302815375865*^9}},ExpressionUUID->"0df8bfc4-2af7-4d51-9cc2-\
bf40c010e8ce"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "[", 
   RowBox[{"x_", ",", "c_"}], "]"}], "=", 
  RowBox[{
   FractionBox["c", "2"], 
   RowBox[{"x", "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.7053028183603396`*^9, 3.705302840700672*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"99d2fcf1-a7bb-4052-9b46-0dd3e5f596de"],

Cell[BoxData[
 FractionBox[
  RowBox[{"c", " ", 
   SuperscriptBox["x", "2"]}], "2"]], "Output",
 CellChangeTimes->{3.705302841815447*^9, 3.707914494671183*^9, 
  3.708859878277237*^9, 3.737122568503821*^9, 3.737890489838021*^9, 
  3.7378906033457804`*^9, 3.7457349164428515`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"1f7560d1-8f4f-47bc-9308-f5c4d2ce1bd9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"cprime", "[", 
   RowBox[{"x_", ",", "c_"}], "]"}], "=", 
  RowBox[{"c", "*", "x"}]}]], "Input",
 CellChangeTimes->{{3.705302844116521*^9, 3.705302850935889*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"87430cc8-45e2-4b2e-8e8f-7a3fbf0bcb9b"],

Cell[BoxData[
 RowBox[{"c", " ", "x"}]], "Output",
 CellChangeTimes->{3.705302851370768*^9, 3.7088598804223866`*^9, 
  3.7371225708883867`*^9, 3.737890491590251*^9, 3.7378906033614216`*^9, 
  3.7457349164584913`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"6af32378-f244-4cf6-ac84-0800dd5ba824"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Noise Density", "Subsection",
 CellChangeTimes->{{3.7053028620805063`*^9, 
  3.7053028647439823`*^9}},ExpressionUUID->"975aebae-5673-495e-9cd7-\
3f6990bf3814"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{"u_", ",", "\[Sigma]2u_"}], "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PDF", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"0", ",", 
           RowBox[{
            RowBox[{"(", "\[Sigma]2u", ")"}], "^", ".5"}]}], "]"}], ",", 
         "u"}], "]"}], ",", 
       RowBox[{
        RowBox[{"-", ".5"}], "\[LessEqual]", "u", "\[LessEqual]", ".5"}]}], 
      "}"}], "}"}], ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.705302867289898*^9, 3.705302890450055*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"077ea026-e6fb-4f1c-8898-87a8d745dc25"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox[
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["u", "2"], 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]2u", "1.`"]}]]}]], 
         RowBox[{
          SqrtBox[
           RowBox[{"2", " ", "\[Pi]"}]], " ", 
          SuperscriptBox["\[Sigma]2u", "0.5`"]}]], 
        RowBox[{
         RowBox[{"-", "0.5`"}], "\[LessEqual]", "u", "\[LessEqual]", "0.5`"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.7053029001153893`*^9, 3.7079144972846622`*^9, 
  3.7088598869340906`*^9, 3.7371225731917706`*^9, 3.7378904952016473`*^9, 
  3.7378906033614216`*^9, 3.7457349165053344`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"4f5278fe-eba2-49a7-8d3b-8d9d89d161d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"gprime", "[", 
   RowBox[{"u_", ",", "\[Sigma]2u_"}], "]"}], "=", 
  RowBox[{
   FractionBox[
    RowBox[{"-", "u"}], "\[Sigma]2u"], "*", 
   RowBox[{"g", "[", 
    RowBox[{"u", ",", "\[Sigma]2u"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7053029039743123`*^9, 3.7053029306769533`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"bfb15198-11bb-4f65-b13f-ad637f482acd"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"u", " ", 
    RowBox[{"(", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            FractionBox[
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               FractionBox[
                SuperscriptBox["u", "2"], 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[Sigma]2u", "1.`"]}]]}]], 
             RowBox[{
              SqrtBox[
               RowBox[{"2", " ", "\[Pi]"}]], " ", 
              SuperscriptBox["\[Sigma]2u", "0.5`"]}]], 
            RowBox[{
             RowBox[{"-", "0.5`"}], "\[LessEqual]", "u", "\[LessEqual]", 
             "0.5`"}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          
          GridBoxAlignment->{
           "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{1.}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}},
          Selectable->True]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ")"}]}], "\[Sigma]2u"]}]], "Output",
 CellChangeTimes->{3.7053029317508774`*^9, 3.70791449957798*^9, 
  3.708859891040945*^9, 3.7371225756632166`*^9, 3.737890497245983*^9, 
  3.73789060337703*^9, 3.745734916520958*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"3a17c83c-7917-4a83-afbd-19426e86edec"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Probability of Investment", "Subsection",
 CellChangeTimes->{{3.705302946031674*^9, 
  3.705302949149329*^9}},ExpressionUUID->"45cb30a8-d018-407a-880c-\
ed0f07a2e86e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"prinv", "[", 
   RowBox[{
   "\[Nu]_", ",", "\[Sigma]2\[Theta]_", ",", "c_", ",", "\[Sigma]2u_"}], 
   "]"}], "=", 
  RowBox[{".5", "-", 
   FractionBox["\[Nu]", 
    RowBox[{"2", "*", 
     RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}]}]], "-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", "*", 
      RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}], "*", "c"}]], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{"u", "*", 
         RowBox[{"gprime", "[", 
          RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], "*", 
         RowBox[{"g", "[", 
          RowBox[{"u", ",", "\[Sigma]2u"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}], "+", 
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"g", "[", 
           RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7053029526103563`*^9, 3.7053029544958353`*^9}, {
  3.7053101556298056`*^9, 3.705310165600028*^9}, {3.7053107857529807`*^9, 
  3.7053107868501472`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"7860c33f-69de-4b24-8e13-9ea51f766e93"],

Cell[BoxData[
 RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
  FractionBox[
   RowBox[{"0.2886751345948129`", " ", "\[Nu]"}], 
   SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], "-", 
  FractionBox[
   RowBox[{"0.2886751345948129`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"0.28209479177387814`", " ", 
        RowBox[{"Erf", "[", 
         FractionBox["0.5`", 
          SqrtBox["\[Sigma]2u"]], "]"}]}], 
       SqrtBox["\[Sigma]2u"]], "-", 
      FractionBox[
       RowBox[{"0.07957747154594767`", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.772453850905516`", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
           SqrtBox["\[Sigma]2u"], " ", 
           RowBox[{"Erf", "[", 
            FractionBox["0.5`", 
             SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], "\[Sigma]2u"]}], 
     ")"}]}], 
   RowBox[{"c", " ", 
    SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]]}]], "Output",
 CellChangeTimes->{3.705310168438323*^9, 3.7053107874419947`*^9, 
  3.7079145074396567`*^9, 3.7079205216270423`*^9, 3.7088598964730835`*^9, 
  3.7371225786649284`*^9, 3.7378904999972687`*^9, 3.7378906034239063`*^9, 
  3.745734917353902*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"59c45dd6-763d-49d8-8b32-16c55d5417c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"prinv1", "[", 
   RowBox[{
   "\[Mu]_", ",", "\[Theta]_", ",", "\[Sigma]2\[Theta]_", ",", "c_", ",", 
    "\[Sigma]2u_", ",", "p_"}], "]"}], "=", 
  RowBox[{".5", "-", 
   FractionBox[
    RowBox[{"\[Mu]", "-", "\[Theta]"}], 
    RowBox[{"2", "*", 
     RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}]}]], "-", 
   RowBox[{
    FractionBox["p", 
     RowBox[{"2", "*", 
      RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}], "*", "c"}]], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{"u", "*", 
         RowBox[{"gprime", "[", 
          RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], "*", 
         RowBox[{"g", "[", 
          RowBox[{"u", ",", "\[Sigma]2u"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}], "+", 
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"g", "[", 
           RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.707920616799184*^9, 3.707920657068841*^9}, {
  3.70886015254774*^9, 3.708860157149666*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"3088f7e3-e93e-41b6-9d2d-3f157d69386d"],

Cell[BoxData[
 RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
  FractionBox[
   RowBox[{"0.2886751345948129`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Theta]"}], "+", "\[Mu]"}], ")"}]}], 
   SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], "-", 
  FractionBox[
   RowBox[{"0.2886751345948129`", " ", "p", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"0.28209479177387814`", " ", 
        RowBox[{"Erf", "[", 
         FractionBox["0.5`", 
          SqrtBox["\[Sigma]2u"]], "]"}]}], 
       SqrtBox["\[Sigma]2u"]], "-", 
      FractionBox[
       RowBox[{"0.07957747154594767`", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.772453850905516`", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
           SqrtBox["\[Sigma]2u"], " ", 
           RowBox[{"Erf", "[", 
            FractionBox["0.5`", 
             SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], "\[Sigma]2u"]}], 
     ")"}]}], 
   RowBox[{"c", " ", 
    SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]]}]], "Output",
 CellChangeTimes->{3.7079206581824865`*^9, 3.7079208764243283`*^9, 
  3.708859899052596*^9, 3.708860157938987*^9, 3.7371225811351023`*^9, 
  3.737890502075675*^9, 3.7378906034551554`*^9, 3.7457349174639707`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"9ca708be-6805-4acd-a8b2-5d0a471b31dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"prinvdem", "[", 
   RowBox[{
   "\[Mu]_", ",", "\[Theta]_", ",", "\[Sigma]2\[Theta]_", ",", "c_", ",", 
    "\[Sigma]2u_", ",", "p_", ",", "r_"}], "]"}], "=", 
  RowBox[{".5", "-", 
   FractionBox[
    RowBox[{"\[Mu]", "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", "r"}], ")"}], "*", "\[Theta]"}], "-", "1"}], 
       ")"}], "/", "r"}]}], 
    RowBox[{"2", "*", 
     RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}]}]], "-", 
   RowBox[{
    FractionBox["p", 
     RowBox[{"2", "*", 
      RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}], "*", "c"}]], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{"u", "*", 
         RowBox[{"gprime", "[", 
          RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], "*", 
         RowBox[{"g", "[", 
          RowBox[{"u", ",", "\[Sigma]2u"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}], "+", 
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"g", "[", 
           RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7088599085915513`*^9, 3.708859912598068*^9}, {
  3.7088599763356075`*^9, 3.70885997861278*^9}, {3.7088605652262216`*^9, 
  3.7088606017871737`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"fc4ad96b-1133-4892-ad7d-8d980c2e6b68"],

Cell[BoxData[
 RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
  FractionBox[
   RowBox[{"0.2886751345948129`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "r"}], ")"}], " ", "\[Theta]"}]}], "r"]}], "+", 
      "\[Mu]"}], ")"}]}], 
   SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], "-", 
  FractionBox[
   RowBox[{"0.2886751345948129`", " ", "p", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"0.28209479177387814`", " ", 
        RowBox[{"Erf", "[", 
         FractionBox["0.5`", 
          SqrtBox["\[Sigma]2u"]], "]"}]}], 
       SqrtBox["\[Sigma]2u"]], "-", 
      FractionBox[
       RowBox[{"0.07957747154594767`", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.772453850905516`", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
           SqrtBox["\[Sigma]2u"], " ", 
           RowBox[{"Erf", "[", 
            FractionBox["0.5`", 
             SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], "\[Sigma]2u"]}], 
     ")"}]}], 
   RowBox[{"c", " ", 
    SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]]}]], "Output",
 CellChangeTimes->{3.708860603334527*^9, 3.7371225836065845`*^9, 
  3.7378905046711893`*^9, 3.7378906034864054`*^9, 3.745734917510851*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"c4e89b30-9dcd-4008-9945-b5395dab2ff0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ratioad", "[", 
   RowBox[{
   "\[Mu]_", ",", "\[Theta]_", ",", "\[Sigma]2\[Theta]_", ",", "c_", ",", 
    "\[Sigma]2u_", ",", "p_", ",", "r_"}], "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"prinvdem", "[", 
         RowBox[{
         "\[Mu]", ",", "\[Theta]", ",", "\[Sigma]2\[Theta]", ",", "c", ",", 
          "\[Sigma]2u", ",", "p", ",", "r"}], "]"}], 
        RowBox[{"prinv1", "[", 
         RowBox[{
         "\[Mu]", ",", "\[Theta]", ",", "\[Sigma]2\[Theta]", ",", "c", ",", 
          "\[Sigma]2u", ",", "p"}], "]"}]], ",", 
       RowBox[{
        FractionBox[
         RowBox[{"prinvdem", "[", 
          RowBox[{
          "\[Mu]", ",", "\[Theta]", ",", "\[Sigma]2\[Theta]", ",", "c", ",", 
           "\[Sigma]2u", ",", "p", ",", "r"}], "]"}], 
         RowBox[{"prinv1", "[", 
          RowBox[{
          "\[Mu]", ",", "\[Theta]", ",", "\[Sigma]2\[Theta]", ",", "c", ",", 
           "\[Sigma]2u", ",", "p"}], "]"}]], ">", "0"}]}], "}"}], "}"}], ",", 
    "False"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7088606104132137`*^9, 3.7088606951621966`*^9}, {
  3.7088612467876368`*^9, 3.7088612739338026`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"57f5453f-3476-449a-80f8-f990b38424bd"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{
         RowBox[{"(", 
          RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
           FractionBox[
            RowBox[{"0.2886751345948129`", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", "r"}], ")"}], " ", "\[Theta]"}]}], 
                 "r"]}], "+", "\[Mu]"}], ")"}]}], 
            SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], "-", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"c", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]], 
            RowBox[{"0.2886751345948129`", " ", "p", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"0.28209479177387814`", " ", 
                 RowBox[{"Erf", "[", 
                  FractionBox["0.5`", 
                   SqrtBox["\[Sigma]2u"]], "]"}]}], 
                SqrtBox["\[Sigma]2u"]], "-", 
               FractionBox[
                RowBox[{"0.07957747154594767`", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.`"}], "+", 
                   RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
                    SqrtBox["\[Sigma]2u"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], "\[Sigma]2u"]}
               ], ")"}]}]}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
           FractionBox[
            RowBox[{"0.2886751345948129`", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Theta]"}], "+", "\[Mu]"}], ")"}]}], 
            SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], "-", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"c", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]], 
            RowBox[{"0.2886751345948129`", " ", "p", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"0.28209479177387814`", " ", 
                 RowBox[{"Erf", "[", 
                  FractionBox["0.5`", 
                   SqrtBox["\[Sigma]2u"]], "]"}]}], 
                SqrtBox["\[Sigma]2u"]], "-", 
               FractionBox[
                RowBox[{"0.07957747154594767`", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.`"}], "+", 
                   RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
                    SqrtBox["\[Sigma]2u"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], 
                "\[Sigma]2u"]}], ")"}]}]}]}], ")"}]}], 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
            FractionBox[
             RowBox[{"0.2886751345948129`", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", "r"}], ")"}], " ", "\[Theta]"}]}], 
                  "r"]}], "+", "\[Mu]"}], ")"}]}], 
             SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"c", " ", 
               SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]], 
             RowBox[{"0.2886751345948129`", " ", "p", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"0.28209479177387814`", " ", 
                  RowBox[{"Erf", "[", 
                   FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u"]], "]"}]}], 
                 SqrtBox["\[Sigma]2u"]], "-", 
                FractionBox[
                 RowBox[{"0.07957747154594767`", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
                    SqrtBox["\[Sigma]2u"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], 
                 "\[Sigma]2u"]}], ")"}]}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
            FractionBox[
             RowBox[{"0.2886751345948129`", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "\[Theta]"}], "+", "\[Mu]"}], ")"}]}], 
             SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"c", " ", 
               SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]], 
             RowBox[{"0.2886751345948129`", " ", "p", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"0.28209479177387814`", " ", 
                  RowBox[{"Erf", "[", 
                   FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u"]], "]"}]}], 
                 SqrtBox["\[Sigma]2u"]], "-", 
                FractionBox[
                 RowBox[{"0.07957747154594767`", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
                    SqrtBox["\[Sigma]2u"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], 
                 "\[Sigma]2u"]}], ")"}]}]}]}], ")"}]}], ">", "0"}]},
       {"False", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.7088606830511456`*^9, 3.7088606960755053`*^9}, 
   3.708861274467802*^9, 3.737122587045412*^9, 3.7378905072639446`*^9, 
   3.7378906035020304`*^9, 3.7457349175421314`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"200e74e0-1e5b-45b7-bab8-00069178ef95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ratioequ", "[", 
   RowBox[{
   "\[Mu]_", ",", "\[Theta]1_", ",", "\[Theta]2_", ",", "\[Sigma]2\[Theta]1_",
     ",", "\[Sigma]2\[Theta]2_", ",", "\[Sigma]2u1_", ",", "\[Sigma]2u2_", 
    ",", "c_", ",", "p_"}], "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"prinv1", "[", 
         RowBox[{
         "\[Mu]", ",", "\[Theta]1", ",", "\[Sigma]2\[Theta]1", ",", "c", ",", 
          "\[Sigma]2u1", ",", "p"}], "]"}], 
        RowBox[{"prinv1", "[", 
         RowBox[{
         "\[Mu]", ",", "\[Theta]2", ",", "\[Sigma]2\[Theta]2", ",", "c", ",", 
          "\[Sigma]2u2", ",", "p"}], "]"}]], ",", 
       RowBox[{
        FractionBox[
         RowBox[{"prinv1", "[", 
          RowBox[{
          "\[Mu]", ",", "\[Theta]1", ",", "\[Sigma]2\[Theta]1", ",", "c", ",",
            "\[Sigma]2u1", ",", "p"}], "]"}], 
         RowBox[{"prinv1", "[", 
          RowBox[{
          "\[Mu]", ",", "\[Theta]2", ",", "\[Sigma]2\[Theta]2", ",", "c", ",",
            "\[Sigma]2u2", ",", "p"}], "]"}]], ">", "0"}]}], "}"}], "}"}], 
    ",", "False"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7079206624766164`*^9, 3.707920674902901*^9}, {
  3.707920729339675*^9, 3.707920895754614*^9}, {3.7079212437414403`*^9, 
  3.707921256713732*^9}, {3.70886016245105*^9, 3.708860177470709*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"a79aa633-d790-4abf-ba12-beae456432b7"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{
         RowBox[{"(", 
          RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
           FractionBox[
            RowBox[{"0.2886751345948129`", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Theta]1"}], "+", "\[Mu]"}], ")"}]}], 
            SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]], "-", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"c", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]}]], 
            RowBox[{"0.2886751345948129`", " ", "p", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"0.28209479177387814`", " ", 
                 RowBox[{"Erf", "[", 
                  FractionBox["0.5`", 
                   SqrtBox["\[Sigma]2u1"]], "]"}]}], 
                SqrtBox["\[Sigma]2u1"]], "-", 
               FractionBox[
                RowBox[{"0.07957747154594767`", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u1"}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.`"}], "+", 
                   RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u1"}]], " ", 
                    SqrtBox["\[Sigma]2u1"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u1"]], "]"}]}]}], ")"}]}], 
                "\[Sigma]2u1"]}], ")"}]}]}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
           FractionBox[
            RowBox[{"0.2886751345948129`", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Theta]2"}], "+", "\[Mu]"}], ")"}]}], 
            SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]], "-", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"c", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}]], 
            RowBox[{"0.2886751345948129`", " ", "p", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"0.28209479177387814`", " ", 
                 RowBox[{"Erf", "[", 
                  FractionBox["0.5`", 
                   SqrtBox["\[Sigma]2u2"]], "]"}]}], 
                SqrtBox["\[Sigma]2u2"]], "-", 
               FractionBox[
                RowBox[{"0.07957747154594767`", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u2"}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.`"}], "+", 
                   RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u2"}]], " ", 
                    SqrtBox["\[Sigma]2u2"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u2"]], "]"}]}]}], ")"}]}], 
                "\[Sigma]2u2"]}], ")"}]}]}]}], ")"}]}], 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
            FractionBox[
             RowBox[{"0.2886751345948129`", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "\[Theta]1"}], "+", "\[Mu]"}], ")"}]}], 
             SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"c", " ", 
               SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]}]], 
             RowBox[{"0.2886751345948129`", " ", "p", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"0.28209479177387814`", " ", 
                  RowBox[{"Erf", "[", 
                   FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u1"]], "]"}]}], 
                 SqrtBox["\[Sigma]2u1"]], "-", 
                FractionBox[
                 RowBox[{"0.07957747154594767`", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u1"}]], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u1"}]], " ", 
                    SqrtBox["\[Sigma]2u1"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u1"]], "]"}]}]}], ")"}]}], 
                 "\[Sigma]2u1"]}], ")"}]}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
            FractionBox[
             RowBox[{"0.2886751345948129`", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "\[Theta]2"}], "+", "\[Mu]"}], ")"}]}], 
             SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"c", " ", 
               SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}]], 
             RowBox[{"0.2886751345948129`", " ", "p", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"0.28209479177387814`", " ", 
                  RowBox[{"Erf", "[", 
                   FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u2"]], "]"}]}], 
                 SqrtBox["\[Sigma]2u2"]], "-", 
                FractionBox[
                 RowBox[{"0.07957747154594767`", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u2"}]], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u2"}]], " ", 
                    SqrtBox["\[Sigma]2u2"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u2"]], "]"}]}]}], ")"}]}], 
                 "\[Sigma]2u2"]}], ")"}]}]}]}], ")"}]}], ">", "0"}]},
       {"False", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.7079208966458583`*^9, 3.7079212574733047`*^9, 
  3.708860054856273*^9, 3.708860177783885*^9, 3.737122589810177*^9, 
  3.7378905102981567`*^9, 3.7378906035645304`*^9, 3.745734917651491*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"bab260fa-5f16-4bb9-bdd0-d6213d201fba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ratioequbold", "[", 
   RowBox[{
   "\[Mu]_", ",", "\[Theta]1_", ",", "\[Theta]2_", ",", "\[Sigma]2\[Theta]1_",
     ",", "\[Sigma]2\[Theta]2_", ",", "\[Sigma]2u1_", ",", "\[Sigma]2u2_", 
    ",", "c_", ",", "p_"}], "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"prinv1", "[", 
         RowBox[{
         "\[Mu]", ",", "\[Theta]1", ",", "\[Sigma]2\[Theta]1", ",", "c", ",", 
          "\[Sigma]2u1", ",", "p"}], "]"}], 
        RowBox[{"prinv1", "[", 
         RowBox[{
         "\[Mu]", ",", "\[Theta]2", ",", "\[Sigma]2\[Theta]2", ",", "c", ",", 
          "\[Sigma]2u2", ",", "p"}], "]"}]], ",", 
       RowBox[{
        FractionBox[
         RowBox[{"prinv1", "[", 
          RowBox[{
          "\[Mu]", ",", "\[Theta]1", ",", "\[Sigma]2\[Theta]1", ",", "c", ",",
            "\[Sigma]2u1", ",", "p"}], "]"}], 
         RowBox[{"prinv1", "[", 
          RowBox[{
          "\[Mu]", ",", "\[Theta]2", ",", "\[Sigma]2\[Theta]2", ",", "c", ",",
            "\[Sigma]2u2", ",", "p"}], "]"}]], ">", "1"}]}], "}"}], "}"}], 
    ",", "False"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7081507097212644`*^9, 3.70815071335392*^9}, {
  3.708860182049654*^9, 3.7088602043099174`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"6b2d2c65-cd83-470c-99e9-0e8ac79c7d72"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{
         RowBox[{"(", 
          RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
           FractionBox[
            RowBox[{"0.2886751345948129`", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Theta]1"}], "+", "\[Mu]"}], ")"}]}], 
            SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]], "-", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"c", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]}]], 
            RowBox[{"0.2886751345948129`", " ", "p", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"0.28209479177387814`", " ", 
                 RowBox[{"Erf", "[", 
                  FractionBox["0.5`", 
                   SqrtBox["\[Sigma]2u1"]], "]"}]}], 
                SqrtBox["\[Sigma]2u1"]], "-", 
               FractionBox[
                RowBox[{"0.07957747154594767`", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u1"}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.`"}], "+", 
                   RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u1"}]], " ", 
                    SqrtBox["\[Sigma]2u1"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u1"]], "]"}]}]}], ")"}]}], 
                "\[Sigma]2u1"]}], ")"}]}]}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
           FractionBox[
            RowBox[{"0.2886751345948129`", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Theta]2"}], "+", "\[Mu]"}], ")"}]}], 
            SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]], "-", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"c", " ", 
              SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}]], 
            RowBox[{"0.2886751345948129`", " ", "p", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"0.28209479177387814`", " ", 
                 RowBox[{"Erf", "[", 
                  FractionBox["0.5`", 
                   SqrtBox["\[Sigma]2u2"]], "]"}]}], 
                SqrtBox["\[Sigma]2u2"]], "-", 
               FractionBox[
                RowBox[{"0.07957747154594767`", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u2"}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.`"}], "+", 
                   RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u2"}]], " ", 
                    SqrtBox["\[Sigma]2u2"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u2"]], "]"}]}]}], ")"}]}], 
                "\[Sigma]2u2"]}], ")"}]}]}]}], ")"}]}], 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
            FractionBox[
             RowBox[{"0.2886751345948129`", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "\[Theta]1"}], "+", "\[Mu]"}], ")"}]}], 
             SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"c", " ", 
               SuperscriptBox["\[Sigma]2\[Theta]1", "0.5`"]}]], 
             RowBox[{"0.2886751345948129`", " ", "p", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"0.28209479177387814`", " ", 
                  RowBox[{"Erf", "[", 
                   FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u1"]], "]"}]}], 
                 SqrtBox["\[Sigma]2u1"]], "-", 
                FractionBox[
                 RowBox[{"0.07957747154594767`", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u1"}]], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u1"}]], " ", 
                    SqrtBox["\[Sigma]2u1"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u1"]], "]"}]}]}], ")"}]}], 
                 "\[Sigma]2u1"]}], ")"}]}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
            FractionBox[
             RowBox[{"0.2886751345948129`", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "\[Theta]2"}], "+", "\[Mu]"}], ")"}]}], 
             SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]], "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"c", " ", 
               SuperscriptBox["\[Sigma]2\[Theta]2", "0.5`"]}]], 
             RowBox[{"0.2886751345948129`", " ", "p", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"0.28209479177387814`", " ", 
                  RowBox[{"Erf", "[", 
                   FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u2"]], "]"}]}], 
                 SqrtBox["\[Sigma]2u2"]], "-", 
                FractionBox[
                 RowBox[{"0.07957747154594767`", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u2"}]], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"1.772453850905516`", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"0.25`", "/", "\[Sigma]2u2"}]], " ", 
                    SqrtBox["\[Sigma]2u2"], " ", 
                    RowBox[{"Erf", "[", 
                    FractionBox["0.5`", 
                    SqrtBox["\[Sigma]2u2"]], "]"}]}]}], ")"}]}], 
                 "\[Sigma]2u2"]}], ")"}]}]}]}], ")"}]}], ">", "1"}]},
       {"False", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.708150713933158*^9, 3.7088600573194413`*^9, 
  3.7088602046639557`*^9, 3.7371225933471627`*^9, 3.7378905124502163`*^9, 
  3.737890603627031*^9, 3.7457349177452507`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"47045b8e-92ae-47e4-8b98-1c2055c5f820"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Discount-adjusted factor", "Subsection",
 CellChangeTimes->{{3.707914534996869*^9, 
  3.7079145383080473`*^9}},ExpressionUUID->"53370d49-bd22-4592-9737-\
60fd6599c7db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Delta]", "[", 
   RowBox[{"\[Beta]_", ",", "p_"}], "]"}], "=", 
  FractionBox[
   RowBox[{"1", "-", 
    RowBox[{"\[Beta]", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p"}], ")"}]}]}], 
   RowBox[{"\[Beta]", "*", "p"}]]}]], "Input",
 CellChangeTimes->{{3.7079145432924337`*^9, 3.7079145603735223`*^9}, {
  3.707914597100233*^9, 3.707914612266822*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"47f9c7ae-c9e5-40ea-824b-05b0026e5156"],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "p"}], ")"}], " ", "\[Beta]"}]}], 
  RowBox[{"p", " ", "\[Beta]"}]]], "Output",
 CellChangeTimes->{3.7079146141383257`*^9, 3.7079152138752527`*^9, 
  3.7088604377134027`*^9, 3.737122599685418*^9, 3.737890515466384*^9, 
  3.7378906036907525`*^9, 3.745734917854637*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"759c894b-9bac-4f93-825c-7781e8b8be36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"prinv\[Beta]", "[", 
   RowBox[{
   "\[Mu]_", ",", "\[Theta]_", ",", "\[Beta]_", ",", "p_", ",", 
    "\[Sigma]2\[Theta]_", ",", "c_", ",", "\[Sigma]2u_"}], "]"}], "=", 
  RowBox[{".5", "-", 
   FractionBox[
    RowBox[{"\[Mu]", "-", 
     RowBox[{"\[Theta]", "*", 
      RowBox[{"\[Delta]", "[", 
       RowBox[{"\[Beta]", ",", "p"}], "]"}]}]}], 
    RowBox[{"2", "*", 
     RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}]}]], "-", 
   RowBox[{
    FractionBox["p", 
     RowBox[{"2", "*", 
      RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}], "*", "c"}]], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{"u", "*", 
         RowBox[{"gprime", "[", 
          RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], "*", 
         RowBox[{"g", "[", 
          RowBox[{"u", ",", "\[Sigma]2u"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}], "+", 
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"g", "[", 
           RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], ")"}], "^", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.70791462010798*^9, 3.707914679988306*^9}, {
  3.707915101189515*^9, 3.7079151880542297`*^9}, {3.707915218488693*^9, 
  3.707915218632289*^9}, {3.708860429289049*^9, 3.708860430032773*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"309f4cdf-cc7f-4c86-8631-078695f00701"],

Cell[BoxData[
 RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
  FractionBox[
   RowBox[{"0.2886751345948129`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}], " ", "\[Beta]"}]}], ")"}], " ", 
         "\[Theta]"}], 
        RowBox[{"p", " ", "\[Beta]"}]]}], "+", "\[Mu]"}], ")"}]}], 
   SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], "-", 
  FractionBox[
   RowBox[{"0.2886751345948129`", " ", "p", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"0.28209479177387814`", " ", 
        RowBox[{"Erf", "[", 
         FractionBox["0.5`", 
          SqrtBox["\[Sigma]2u"]], "]"}]}], 
       SqrtBox["\[Sigma]2u"]], "-", 
      FractionBox[
       RowBox[{"0.07957747154594767`", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.772453850905516`", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
           SqrtBox["\[Sigma]2u"], " ", 
           RowBox[{"Erf", "[", 
            FractionBox["0.5`", 
             SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], "\[Sigma]2u"]}], 
     ")"}]}], 
   RowBox[{"c", " ", 
    SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]}]]}]], "Output",
 CellChangeTimes->{
  3.707914680812291*^9, 3.7079151166160445`*^9, 3.70791515682213*^9, 
   3.707915188846213*^9, 3.7079152193203793`*^9, {3.7088604305037875`*^9, 
   3.708860439680069*^9}, 3.7371226020957003`*^9, 3.737890517420915*^9, 
   3.737890603722005*^9, 3.745734917896495*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"038b138a-5ac8-4a3a-870d-b1d6362195c0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Message Density", "Subsection",
 CellChangeTimes->{{3.705310179596344*^9, 
  3.7053101825171285`*^9}},ExpressionUUID->"a028e33f-62f8-48fa-85f0-\
46802c48a7a8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"h", "[", 
   RowBox[{
   "m_", ",", "k_", ",", "\[Sigma]2\[Theta]_", ",", "c_", ",", 
    "\[Sigma]2u_"}], "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "c"}], ")"}], "*", 
          RowBox[{"gprime", "[", 
           RowBox[{
            RowBox[{"k", "-", "m"}], ",", "\[Sigma]2u"}], "]"}]}]}], 
        RowBox[{"2", "*", 
         RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}]}]], ",", 
       RowBox[{"0", "<=", 
        FractionBox[
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "/", "c"}], ")"}], "*", 
           RowBox[{"gprime", "[", 
            RowBox[{
             RowBox[{"k", "-", "m"}], ",", "\[Sigma]2u"}], "]"}]}]}], 
         RowBox[{"2", "*", 
          RowBox[{"b", "[", "\[Sigma]2\[Theta]", "]"}]}]]}]}], "}"}], "}"}], 
    ",", "0"}], "]"}]}]], "Input",
 CellLabel->"In[19]:=",ExpressionUUID->"0f9af633-3216-4aab-803c-69dc8d8518a0"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox[
         RowBox[{"0.2886751345948129`", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"k", "-", "m"}], ")"}], " ", 
              RowBox[{"(", 
               TagBox[GridBox[{
                  {"\[Piecewise]", GridBox[{
                    {
                    FractionBox[
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", 
                    FractionBox[
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"k", "-", "m"}], ")"}], "2"], 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[Sigma]2u", "1.`"]}]]}]], 
                    RowBox[{
                    SqrtBox[
                    RowBox[{"2", " ", "\[Pi]"}]], " ", 
                    SuperscriptBox["\[Sigma]2u", "0.5`"]}]], 
                    RowBox[{
                    RowBox[{"-", "0.5`"}], "\[LessEqual]", 
                    RowBox[{"k", "-", "m"}], "\[LessEqual]", "0.5`"}]},
                    {"0", 
                    TagBox["True",
                    "PiecewiseDefault",
                    AutoDelete->True]}
                    },
                    AllowedDimensions->{2, Automatic},
                    Editable->True,
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                    
                    GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{1.}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.84]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}},
                    Selectable->True]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                 
                 GridBoxItemSize->{
                  "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{1.}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.35]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                "Piecewise",
                DeleteWithContents->True,
                Editable->False,
                SelectWithContents->True,
                Selectable->False], ")"}]}], 
             RowBox[{"c", " ", "\[Sigma]2u"}]]}], ")"}]}], 
         SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]], 
        RowBox[{"0", "\[LessEqual]", 
         FractionBox[
          RowBox[{"0.2886751345948129`", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}], " ", 
               RowBox[{"(", 
                TagBox[GridBox[{
                   {"\[Piecewise]", GridBox[{
                    {
                    FractionBox[
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", 
                    FractionBox[
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"k", "-", "m"}], ")"}], "2"], 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[Sigma]2u", "1.`"]}]]}]], 
                    RowBox[{
                    SqrtBox[
                    RowBox[{"2", " ", "\[Pi]"}]], " ", 
                    SuperscriptBox["\[Sigma]2u", "0.5`"]}]], 
                    RowBox[{
                    RowBox[{"-", "0.5`"}], "\[LessEqual]", 
                    RowBox[{"k", "-", "m"}], "\[LessEqual]", "0.5`"}]},
                    {"0", 
                    TagBox["True",
                    "PiecewiseDefault",
                    AutoDelete->True]}
                    },
                    AllowedDimensions->{2, Automatic},
                    Editable->True,
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                    
                    GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{1.}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.84]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}},
                    Selectable->True]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                  
                  GridBoxItemSize->{
                   "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{1.}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.35]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                 "Piecewise",
                 DeleteWithContents->True,
                 Editable->False,
                 SelectWithContents->True,
                 Selectable->False], ")"}]}], 
              RowBox[{"c", " ", "\[Sigma]2u"}]]}], ")"}]}], 
          SuperscriptBox["\[Sigma]2\[Theta]", "0.5`"]]}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.7053101942034216`*^9, 3.7371226046136746`*^9, 
  3.7378905200943933`*^9, 3.7378906037376366`*^9, 3.7457349179175515`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"bbc50172-d399-4a59-b6a1-83c6f07faf92"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expected Type Conditional on Threshold", "Subsection",
 CellChangeTimes->{{3.70531020739054*^9, 
  3.7053102135285435`*^9}},ExpressionUUID->"bebff273-a318-470e-b0a7-\
c519bdc52be5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"type", "[", 
   RowBox[{"k_", ",", "\[Sigma]2u_", ",", "d_", ",", "c_"}], "]"}], "=", 
  RowBox[{"k", "+", 
   RowBox[{
    FractionBox["1", "c"], "*", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"gprime", "[", 
        RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], "*", 
       RowBox[{"g", "[", 
        RowBox[{"u", ",", "\[Sigma]2u"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"u", ",", 
        RowBox[{"-", "d"}], ",", "d"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{3.7053107990462914`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"37ccb9b2-7b60-44fd-bbe2-a6bf6b838c96"],

Cell[BoxData[
 TemplateBox[{
  "Integrate","pwrl",
   "\"Unable to prove that integration limits \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"-\\\", \\\"d\\\"}], \\\",\\\", \\\"d\\\"}], \
\\\"}\\\"}]\\) are real. Adding assumptions may help.\"",2,20,1,
   23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.745734917998606*^9},
 CellLabel->
  "During evaluation of \
In[20]:=",ExpressionUUID->"27422072-e250-4d07-a57a-1769c1432863"],

Cell[BoxData[
 RowBox[{"k", "+", 
  FractionBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{"-", "d"}], "d"], 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          TagBox[GridBox[{
             {"\[Piecewise]", GridBox[{
                {
                 FractionBox[
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"-", 
                    FractionBox[
                    SuperscriptBox["u", "2"], 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[Sigma]2u", "1.`"]}]]}]], 
                  RowBox[{
                   SqrtBox[
                    RowBox[{"2", " ", "\[Pi]"}]], " ", 
                   SuperscriptBox["\[Sigma]2u", "0.5`"]}]], 
                 RowBox[{
                  RowBox[{"-", "0.5`"}], "\[LessEqual]", "u", "\[LessEqual]", 
                  "0.5`"}]},
                {"0", 
                 TagBox["True",
                  "PiecewiseDefault",
                  AutoDelete->True]}
               },
               AllowedDimensions->{2, Automatic},
               Editable->True,
               
               GridBoxAlignment->{
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{1.}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.84]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}},
               Selectable->True]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{1.}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.35]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           "Piecewise",
           DeleteWithContents->True,
           Editable->False,
           SelectWithContents->True,
           Selectable->False], ")"}], "2"]}], "\[Sigma]2u"]}], 
     RowBox[{"\[DifferentialD]", "u"}]}]}], "c"]}]], "Output",
 CellChangeTimes->{3.70531022420516*^9, 3.7053108008285723`*^9, 
  3.7371226080878925`*^9, 3.737890522861761*^9, 3.7378906040813923`*^9, 
  3.745734918428007*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"35a1f4f3-73b1-42bd-a9be-e229fb0a3f7c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Equilibrium Threshold", "Subsection",
 CellChangeTimes->{{3.7053102440729294`*^9, 
  3.705310247869787*^9}},ExpressionUUID->"d5fa99f7-37a1-4b64-a5c6-\
63c3539dc4e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"kstar", "[", 
   RowBox[{"\[Theta]bar_", ",", "c_", ",", "\[Sigma]2u_"}], "]"}], "=", 
  RowBox[{"\[Theta]bar", "-", 
   RowBox[{
    FractionBox["1", "c"], "*", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"gprime", "[", 
        RowBox[{"u", ",", "\[Sigma]2u"}], "]"}], "*", 
       RowBox[{"g", "[", 
        RowBox[{"u", ",", "\[Sigma]2u"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"u", ",", 
        RowBox[{"-", ".75"}], ",", ".75"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.705310257847367*^9, 3.705310270737878*^9}, {
  3.705310311808835*^9, 3.7053103695491376`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"75df9d19-0bfd-46c8-aa43-80281368d76f"],

Cell[BoxData[
 RowBox[{"\[Theta]bar", "+", 
  FractionBox[
   RowBox[{"0.07957747154594767`", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "0.25`"}], "/", "\[Sigma]2u"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1.`"}], "+", 
      RowBox[{"1.772453850905516`", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"0.25`", "/", "\[Sigma]2u"}]], " ", 
       SqrtBox["\[Sigma]2u"], " ", 
       RowBox[{"Erf", "[", 
        FractionBox["0.5`", 
         SqrtBox["\[Sigma]2u"]], "]"}]}]}], ")"}]}], 
   RowBox[{"c", " ", "\[Sigma]2u"}]]}]], "Output",
 CellChangeTimes->{3.7053103741633024`*^9, 3.7053108031474686`*^9, 
  3.737122610292966*^9, 3.7378905247836323`*^9, 3.737890604112628*^9, 
  3.745734918521646*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"2227d374-bc41-4568-8fe4-a749594f4a6b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Separation Function", "Subsection",
 CellChangeTimes->{{3.7053109980036106`*^9, 
  3.705311000436528*^9}},ExpressionUUID->"69cba7a3-c525-4833-975a-\
29289ad0e433"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ\[Theta]", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"prinv", "[", 
     RowBox[{
     "\[Nu]1_", ",", "\[Sigma]2\[Theta]1_", ",", "c_", ",", "\[Sigma]2u_"}], 
     "]"}], "-", 
    RowBox[{"prinv", "[", 
     RowBox[{
     "v2_", ",", "\[Sigma]2\[Theta]2_", ",", "c_", ",", "\[Sigma]2u_"}], 
     "]"}]}], "\[Equal]", "0"}]}]], "Input",
 CellChangeTimes->{{3.70531105639088*^9, 3.7053110598776007`*^9}, {
  3.7053117357628784`*^9, 3.7053118183899813`*^9}, {3.705311851674745*^9, 
  3.7053119399872007`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"22dd369c-3b0d-40f3-891e-6a7d79949887"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.`", "\[VeryThinSpace]", "-", 
   FractionBox[
    RowBox[{"0.2886751345948129`", " ", "\[Nu]1_"}], 
    SuperscriptBox["\[Sigma]2\[Theta]1_", "0.5`"]], "-", 
   FractionBox[
    RowBox[{"0.2886751345948129`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"0.07957747154594767`", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"-", 
            FractionBox["0.25`", "\[Sigma]2u_"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "+", 
            RowBox[{"1.772453850905516`", " ", 
             SuperscriptBox["\[ExponentialE]", 
              FractionBox["0.25`", "\[Sigma]2u_"]], " ", 
             RowBox[{"Erf", "[", 
              FractionBox["0.5`", 
               SqrtBox["\[Sigma]2u_"]], "]"}], " ", 
             SqrtBox["\[Sigma]2u_"]}]}], ")"}]}], "\[Sigma]2u_"]}], "+", 
       FractionBox[
        RowBox[{"0.28209479177387814`", " ", 
         RowBox[{"Erf", "[", 
          FractionBox["0.5`", 
           SqrtBox["\[Sigma]2u_"]], "]"}]}], 
        SqrtBox["\[Sigma]2u_"]]}], ")"}]}], 
    RowBox[{"c_", " ", 
     SuperscriptBox["\[Sigma]2\[Theta]1_", "0.5`"]}]], "+", 
   FractionBox[
    RowBox[{"0.2886751345948129`", " ", "v2_"}], 
    SuperscriptBox["\[Sigma]2\[Theta]2_", "0.5`"]], "+", 
   FractionBox[
    RowBox[{"0.2886751345948129`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"0.07957747154594767`", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"-", 
            FractionBox["0.25`", "\[Sigma]2u_"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "+", 
            RowBox[{"1.772453850905516`", " ", 
             SuperscriptBox["\[ExponentialE]", 
              FractionBox["0.25`", "\[Sigma]2u_"]], " ", 
             RowBox[{"Erf", "[", 
              FractionBox["0.5`", 
               SqrtBox["\[Sigma]2u_"]], "]"}], " ", 
             SqrtBox["\[Sigma]2u_"]}]}], ")"}]}], "\[Sigma]2u_"]}], "+", 
       FractionBox[
        RowBox[{"0.28209479177387814`", " ", 
         RowBox[{"Erf", "[", 
          FractionBox["0.5`", 
           SqrtBox["\[Sigma]2u_"]], "]"}]}], 
        SqrtBox["\[Sigma]2u_"]]}], ")"}]}], 
    RowBox[{"c_", " ", 
     SuperscriptBox["\[Sigma]2\[Theta]2_", "0.5`"]}]]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.70531196166187*^9, 3.737122612890033*^9, 
  3.737890527864316*^9, 3.737890604128265*^9, 3.7457349185528994`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"ec9c7395-831c-49e4-9017-8ca8d1bc004f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sep\[Theta]", "[", 
   RowBox[{
   "v1_", ",", "v2_", ",", "\[Sigma]2\[Theta]1_", ",", "\[Sigma]2\[Theta]2_", 
    ",", "c_", ",", "\[Sigma]2u_"}], "]"}], "=", 
  RowBox[{"Solve", "[", 
   RowBox[{"equ\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{
     "v1", ",", "v2", ",", "\[Sigma]2\[Theta]1", ",", "\[Sigma]2\[Theta]2", 
      ",", "c", ",", "\[Sigma]2u"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7053119663513303`*^9, 3.705311990767665*^9}, {
  3.70531281233191*^9, 3.7053129356509285`*^9}, {3.7053129860941887`*^9, 
  3.705313010346982*^9}, {3.7053136391204996`*^9, 3.7053136826050396`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"fdc68af1-4ed1-4615-9383-7e861ba20481"],

Cell[BoxData[
 TemplateBox[{
  "Pattern","patvar",
   "\"First element in pattern \\!\\(\\*RowBox[{\\\"Pattern\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"System`TSolveDump`X$4997\\\", \\\"[\\\", \\\"3\\\", \\\"]\
\\\"}], \\\",\\\", \\\"_\\\"}], \\\"]\\\"}]\\) is not a valid pattern \
name.\"",2,23,2,23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.745734918638688*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"285ab916-1cf4-41a3-9d22-5ba5deb081be"],

Cell[BoxData[
 TemplateBox[{
  "Pattern","patvar",
   "\"First element in pattern \\!\\(\\*RowBox[{\\\"Pattern\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"System`TSolveDump`X$4997\\\", \\\"[\\\", \\\"2\\\", \\\"]\
\\\"}], \\\",\\\", \\\"_\\\"}], \\\"]\\\"}]\\) is not a valid pattern \
name.\"",2,23,3,23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.745734918654315*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"bd748651-b0fe-4414-9b77-47dab9ea7af9"],

Cell[BoxData[
 TemplateBox[{
  "Pattern","patvar",
   "\"First element in pattern \\!\\(\\*RowBox[{\\\"Pattern\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"System`TSolveDump`X$4997\\\", \\\"[\\\", \\\"4\\\", \\\"]\
\\\"}], \\\",\\\", \\\"_\\\"}], \\\"]\\\"}]\\) is not a valid pattern \
name.\"",2,23,4,23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.745734918685568*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"37c52e57-7653-40ed-935b-bba5be4aba74"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Pattern\\\", \
\\\"::\\\", \\\"patvar\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,23,5,23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7457349187012243`*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"61e92a36-bb47-4a3a-bc95-251d89f359e8"],

Cell[BoxData[
 TemplateBox[{
  "Solve","inex",
   "\"Solve was unable to solve the system with inexact coefficients or the \
system obtained by direct rationalization of inexact numbers present in the \
system. Since many of the methods used by Solve require exact input, \
providing Solve with an exact version of the system may help.\"",2,23,6,
   23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.745734919046128*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"0938475e-1ff2-470b-9530-8a7e575b1197"],

Cell[BoxData[
 TemplateBox[{
  "Rule","rhs",
   "\"Pattern \\!\\(\\*RowBox[{\\\"\[Sigma]2\[Theta]1_\\\"}]\\) appears on \
the right-hand side of rule \\!\\(\\*RowBox[{RowBox[{\\\"sep\[Theta]\\\", \
\\\"[\\\", RowBox[{\\\"v1_\\\", \\\",\\\", \\\"v2_\\\", \\\",\\\", \\\"\
\[Sigma]2\[Theta]1_\\\", \\\",\\\", \\\"\[Sigma]2\[Theta]2_\\\", \\\",\\\", \
\\\"c_\\\", \\\",\\\", \\\"\[Sigma]2u_\\\"}], \\\"]\\\"}], \\\"\[Rule]\\\", \
RowBox[{\\\"Solve\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \
\\\"-\\\", FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \\\"\
\[Nu]1_\\\"}], SuperscriptBox[\\\"\[Sigma]2\[Theta]1_\\\", \\\"0.5`\\\"]], \\\
\"-\\\", FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", RowBox[{\
\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"0.07957747154594767`\\\"}], \
\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \
RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"20\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \
\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \
\\\"\[RightSkeleton]\\\"}]}]}], \\\")\\\"}]}], RowBox[{\\\"c_\\\", \\\" \\\", \
SuperscriptBox[\\\"\[Sigma]2\[Theta]1_\\\", \\\"0.5`\\\"]}]], \\\"+\\\", \
FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \\\"v2_\\\"}], \
SuperscriptBox[\\\"\[Sigma]2\[Theta]2_\\\", \\\"0.5`\\\"]], \\\"+\\\", \
FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \
\\\"0.07957747154594767`\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \
\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
RowBox[{\\\"0.28209479177387814`\\\", \\\" \\\", RowBox[{\\\"Erf\\\", \\\"[\\\
\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \
\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \
\\\")\\\"}]}], RowBox[{\\\"c_\\\", \\\" \\\", SuperscriptBox[\\\"\[Sigma]2\
\[Theta]2_\\\", \\\"0.5`\\\"]}]]}], \\\"\[Equal]\\\", \\\"0\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"v1\\\", \\\",\\\", \\\"v2\\\", \\\",\\\", \\\"\
\[Sigma]2\[Theta]1\\\", \\\",\\\", \\\"\[Sigma]2\[Theta]2\\\", \\\",\\\", \
\\\"c\\\", \\\",\\\", \\\"\[Sigma]2u\\\"}], \\\"}\\\"}]}], \
\\\"]\\\"}]}]\\).\"",2,23,7,23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.745734919061755*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"7d188cbf-e436-43b6-b096-181980055c01"],

Cell[BoxData[
 TemplateBox[{
  "Rule","rhs",
   "\"Pattern \\!\\(\\*RowBox[{\\\"c_\\\"}]\\) appears on the right-hand side \
of rule \\!\\(\\*RowBox[{RowBox[{\\\"sep\[Theta]\\\", \\\"[\\\", \
RowBox[{\\\"v1_\\\", \\\",\\\", \\\"v2_\\\", \\\",\\\", \
\\\"\[Sigma]2\[Theta]1_\\\", \\\",\\\", \\\"\[Sigma]2\[Theta]2_\\\", \
\\\",\\\", \\\"c_\\\", \\\",\\\", \\\"\[Sigma]2u_\\\"}], \\\"]\\\"}], \\\"\
\[Rule]\\\", RowBox[{\\\"Solve\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \
\\\"-\\\", FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \\\"\
\[Nu]1_\\\"}], SuperscriptBox[\\\"\[Sigma]2\[Theta]1_\\\", \\\"0.5`\\\"]], \\\
\"-\\\", FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", RowBox[{\
\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"0.07957747154594767`\\\"}], \
\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \
RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"20\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \
\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \
\\\"\[RightSkeleton]\\\"}]}]}], \\\")\\\"}]}], RowBox[{\\\"c_\\\", \\\" \\\", \
SuperscriptBox[\\\"\[Sigma]2\[Theta]1_\\\", \\\"0.5`\\\"]}]], \\\"+\\\", \
FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \\\"v2_\\\"}], \
SuperscriptBox[\\\"\[Sigma]2\[Theta]2_\\\", \\\"0.5`\\\"]], \\\"+\\\", \
FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \
\\\"0.07957747154594767`\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \
\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
RowBox[{\\\"0.28209479177387814`\\\", \\\" \\\", RowBox[{\\\"Erf\\\", \\\"[\\\
\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \
\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \
\\\")\\\"}]}], RowBox[{\\\"c_\\\", \\\" \\\", SuperscriptBox[\\\"\[Sigma]2\
\[Theta]2_\\\", \\\"0.5`\\\"]}]]}], \\\"\[Equal]\\\", \\\"0\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"v1\\\", \\\",\\\", \\\"v2\\\", \\\",\\\", \\\"\
\[Sigma]2\[Theta]1\\\", \\\",\\\", \\\"\[Sigma]2\[Theta]2\\\", \\\",\\\", \
\\\"c\\\", \\\",\\\", \\\"\[Sigma]2u\\\"}], \\\"}\\\"}]}], \
\\\"]\\\"}]}]\\).\"",2,23,8,23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7457349190930076`*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"7b95bc06-1016-4e0f-88f4-c00535e91b93"],

Cell[BoxData[
 TemplateBox[{
  "Rule","rhs",
   "\"Pattern \\!\\(\\*RowBox[{\\\"\[Sigma]2u_\\\"}]\\) appears on the \
right-hand side of rule \\!\\(\\*RowBox[{RowBox[{\\\"sep\[Theta]\\\", \\\"[\\\
\", RowBox[{\\\"v1_\\\", \\\",\\\", \\\"v2_\\\", \\\",\\\", \\\"\[Sigma]2\
\[Theta]1_\\\", \\\",\\\", \\\"\[Sigma]2\[Theta]2_\\\", \\\",\\\", \
\\\"c_\\\", \\\",\\\", \\\"\[Sigma]2u_\\\"}], \\\"]\\\"}], \\\"\[Rule]\\\", \
RowBox[{\\\"Solve\\\", \\\"[\\\", \
RowBox[{RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \
\\\"-\\\", FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \\\"\
\[Nu]1_\\\"}], SuperscriptBox[\\\"\[Sigma]2\[Theta]1_\\\", \\\"0.5`\\\"]], \\\
\"-\\\", FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", RowBox[{\
\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"0.07957747154594767`\\\"}], \
\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \
RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"20\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \
\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \
\\\"\[RightSkeleton]\\\"}]}]}], \\\")\\\"}]}], RowBox[{\\\"c_\\\", \\\" \\\", \
SuperscriptBox[\\\"\[Sigma]2\[Theta]1_\\\", \\\"0.5`\\\"]}]], \\\"+\\\", \
FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \\\"v2_\\\"}], \
SuperscriptBox[\\\"\[Sigma]2\[Theta]2_\\\", \\\"0.5`\\\"]], \\\"+\\\", \
FractionBox[RowBox[{\\\"0.2886751345948129`\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \
\\\"0.07957747154594767`\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \
\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
RowBox[{\\\"0.28209479177387814`\\\", \\\" \\\", RowBox[{\\\"Erf\\\", \\\"[\\\
\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \
\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \
\\\")\\\"}]}], RowBox[{\\\"c_\\\", \\\" \\\", SuperscriptBox[\\\"\[Sigma]2\
\[Theta]2_\\\", \\\"0.5`\\\"]}]]}], \\\"\[Equal]\\\", \\\"0\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"v1\\\", \\\",\\\", \\\"v2\\\", \\\",\\\", \\\"\
\[Sigma]2\[Theta]1\\\", \\\",\\\", \\\"\[Sigma]2\[Theta]2\\\", \\\",\\\", \
\\\"c\\\", \\\",\\\", \\\"\[Sigma]2u\\\"}], \\\"}\\\"}]}], \
\\\"]\\\"}]}]\\).\"",2,23,9,23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7457349191198287`*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"4ac16f88-83c6-4bb0-b866-1754fcddb3f2"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Rule\\\", \\\"::\\\", \
\\\"rhs\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,23,10,23336069788784381025,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7457349191349545`*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"b013d76e-c7da-4f59-a18e-b4bf831a0a8a"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"0.`", "\[VeryThinSpace]", "-", 
     FractionBox[
      RowBox[{"0.2886751345948129`", " ", "\[Nu]1_"}], 
      SuperscriptBox["\[Sigma]2\[Theta]1_", "0.5`"]], "-", 
     FractionBox[
      RowBox[{"0.2886751345948129`", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"0.07957747154594767`", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              FractionBox["0.25`", "\[Sigma]2u_"]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", 
              RowBox[{"1.772453850905516`", " ", 
               SuperscriptBox["\[ExponentialE]", 
                FractionBox["0.25`", "\[Sigma]2u_"]], " ", 
               RowBox[{"Erf", "[", 
                FractionBox["0.5`", 
                 SqrtBox["\[Sigma]2u_"]], "]"}], " ", 
               SqrtBox["\[Sigma]2u_"]}]}], ")"}]}], "\[Sigma]2u_"]}], "+", 
         FractionBox[
          RowBox[{"0.28209479177387814`", " ", 
           RowBox[{"Erf", "[", 
            FractionBox["0.5`", 
             SqrtBox["\[Sigma]2u_"]], "]"}]}], 
          SqrtBox["\[Sigma]2u_"]]}], ")"}]}], 
      RowBox[{"c_", " ", 
       SuperscriptBox["\[Sigma]2\[Theta]1_", "0.5`"]}]], "+", 
     FractionBox[
      RowBox[{"0.2886751345948129`", " ", "v2_"}], 
      SuperscriptBox["\[Sigma]2\[Theta]2_", "0.5`"]], "+", 
     FractionBox[
      RowBox[{"0.2886751345948129`", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"0.07957747154594767`", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              FractionBox["0.25`", "\[Sigma]2u_"]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", 
              RowBox[{"1.772453850905516`", " ", 
               SuperscriptBox["\[ExponentialE]", 
                FractionBox["0.25`", "\[Sigma]2u_"]], " ", 
               RowBox[{"Erf", "[", 
                FractionBox["0.5`", 
                 SqrtBox["\[Sigma]2u_"]], "]"}], " ", 
               SqrtBox["\[Sigma]2u_"]}]}], ")"}]}], "\[Sigma]2u_"]}], "+", 
         FractionBox[
          RowBox[{"0.28209479177387814`", " ", 
           RowBox[{"Erf", "[", 
            FractionBox["0.5`", 
             SqrtBox["\[Sigma]2u_"]], "]"}]}], 
          SqrtBox["\[Sigma]2u_"]]}], ")"}]}], 
      RowBox[{"c_", " ", 
       SuperscriptBox["\[Sigma]2\[Theta]2_", "0.5`"]}]]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
    "v1", ",", "v2", ",", "\[Sigma]2\[Theta]1", ",", "\[Sigma]2\[Theta]2", 
     ",", "c", ",", "\[Sigma]2u"}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{3.705312936928009*^9, 3.705313683485161*^9, 
  3.73712261582922*^9, 3.7378905307410097`*^9, 3.737890604409523*^9, 
  3.74573491915061*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"93a5922d-afc9-4bb0-8f2a-5010b62e155c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 2: Density of Types of Potential Autocrats", "Section",
 CellChangeTimes->{{3.7053104240210056`*^9, 3.705310436417742*^9}, 
   3.707044442824082*^9, 
   3.73712262743486*^9},ExpressionUUID->"af0ce714-ca9d-47f5-a4ca-\
22fa8f0a9ba0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure2", "=", " ", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"typedens", "[", 
       RowBox[{
        RowBox[{"0.5", "-", 
         RowBox[{"b", "[", ".02", "]"}]}], ",", 
        RowBox[{"0.5", "+", 
         RowBox[{"b", "[", ".02", "]"}]}], ",", "\[Theta]"}], "]"}], ",", 
      RowBox[{"typedens", "[", 
       RowBox[{
        RowBox[{"0.5", "-", 
         RowBox[{"b", "[", ".08", "]"}]}], ",", 
        RowBox[{"0.5", "+", 
         RowBox[{"b", "[", ".08", "]"}]}], ",", "\[Theta]"}], "]"}]}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", ".5"}], ",", "2.3"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<f\>\""}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"18.5", "cm"}]}], ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Monochrome\>\""}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", "Thick", "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"OverBar", "[", "\[Theta]", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{".4", ",", 
             RowBox[{"-", ".3"}]}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<\!\(\*SubscriptBox[\(f\), \(B\)]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.76", ",", "2.2"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<\!\(\*SubscriptBox[\(f\), \(A\)]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1.2"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"Thickness", "[", "0.001", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".4", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".4", ",", "3"}], "}"}]}], "}"}], "]"}], ",", "Dotted", 
       ",", 
       RowBox[{"Thickness", "[", "0.0001", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".255", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".255", ",", "2.01"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".745", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".745", ",", "2.01"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".010", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".010", ",", "1.01"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".990", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".990", ",", "1.01"}], "}"}]}], "}"}], "]"}]}], "}"}]}], 
    ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7089488291309366`*^9, 3.7089488302870283`*^9}, {
   3.7089488942346263`*^9, 3.7089489207722607`*^9}, {3.708948951374542*^9, 
   3.708948969039722*^9}, {3.708949067265562*^9, 3.708949101231517*^9}, {
   3.7089491408684673`*^9, 3.7089493255113583`*^9}, {3.7089493917019114`*^9, 
   3.7089493976112027`*^9}, {3.709262923618039*^9, 3.7092629339742613`*^9}, 
   3.7371226542614455`*^9, {3.737122743373125*^9, 3.7371227484863043`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"3d7f81e0-9660-4788-be78-d777671a1a9a"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Large], Opacity[1.], Dashing[{}], CapForm[
       "Butt"], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQ7ZX64uKBl6F2DFDA4ixVcF/SxB7GN54/Y85mSRc4
3/vs9U1zJUPg/PCU73snSabA+Xf12517JUvg/AWi/m1dki1w/oFvk1KSNiD4
jRyb1Tslp8D5EZEL13/4uATO5/7fGOMutx7OVw189+Jw9xY4v/ycpf2MLzvh
fPEtgvcYGffD+dseOZ85b3MIzj+UNVc68s0ROP+rmi3/2tzjcD7Tz9UC0qqn
4Hyz/wnbgtedgfN9fA80ue5A8JNny/ubH0LwJ5jfey51DcF/mR8t+egvgj/n
QWhNge9ZOJ/xkJdT7xsEX0JgFV/9NwRfL47zdgHDOTg/6tfx4hARBH+LketS
aRsEP22xPceqbgT/TIvJuWNa5+F8K/7TTBNNEfwVMxPNox0Q/OZ1fQvehyKp
v/GiSKIRSb32XPGs6wi+2DZjH5NHCH6Lw6mGf28Q/A2rfpd4Ml6A87v3a9y7
K4bgH2Ip+eEkg+D/8NwvtEIRwU+7EupepIPgz5VcmHjdEMG/Evem2sYcwXd6
2bSBzQnBr9Q7dyrbHcHfUCz59IIPgi/VkCHY4YvgAwA77Lwz
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBmIQPUd8D+Pv8Av2y2ezp5WFMDj0dLj5pSYh+D+F7jbp
5yL4V9S53hxuQvA32JiHRsxA8DPSJqo3Hkbw5Se8/rnyHYLPeiT1zf7+i3D+
6+/37101uATnL3m1+xRf32U4n092+fsnT64g3Je5NW2ByjU4/5vD6icZ9dfh
/BKjI1vEDt+A8++vO9J9UfEWnP8768pszarbcL62I/u/tN134Hz3RYrpG8Xv
wfnlsvFKD2Puw/k6b0K5r/s+gPOF+T9wHPmF4LPsn71eec5DOD/bZPdNTu9H
cP5qz6QF+74h+F9fSwk8m/YYzt8a7M48xeUJnF/v0Tp/yzMEX/Gu143FrU/h
fCvzlimSRs/g/Bi58z8ZLyP4K0r08iy1niPsO9X7qKARwY+7yeiuuQrBP/a8
dPXDSwi+4RfFeqYrCD4AbVfzLw==
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBWIQ/Xm/93frm8/tGaAg4fWkI/x3EXw3nVtes+8j+Lq5
ihfVHiH4v96tv2v7HMF/oP89+eRLBP94gd2rkDcI/pRPZ75lf0Tw9b+95J/1
G8EXMzecpvoPwf9TXiGzkeEFnH/qJ5vmCVYEP+WvstM3fgR/BktcSZAKgv8v
Wdz0ohqS+sMXvvprIvgGTc7lvnoI/on/GlUeFgj+91+f6+18EPywj53dWiUI
vvC9rYuYjiD4rLWNIZaFL+F8hpVx6x8JvYLzi2at7xU6hODv1e7gEMx7DecL
ehXpNPG9gfPv6F64XLkHwd8wz17lSdxbOD92vZmg7D8Ev6F1YeOdVe/g/LUv
ZGfz+byH8zvmtibc80PwU4Leqq4LRPBl9uzZ4BuO4Hf1Rx/rSULwM8xmfuSq
RPCVWkQ82Jch+P8sanivr0DwVbfkltmtRfAnhG+OdduI4P/XCipu3YPg37nY
P4/5MoK/o+178uWrCP4U63jNxTcQfO+leluc7iH4uyrOnmx8ieBP0zXtD3yD
4Bc+mhOi+B7B1/DJuX/gC4LPwnhlyYTvCP6DrdZZCb8Q/D1Zi/UN/iL40+W5
v/7/j+ADACno4t4=
        "]]},
      Annotation[#, "Charting`Private`Tag$5291#1"]& ], 
     TagBox[
      {GrayLevel[0], Thickness[Large], Opacity[1.], AbsoluteDashing[{6, 2}], 
       CapForm["Butt"], 
       LineBox[{{2.040816326530612*^-8, 0.}, {0.00030671792055962676`, 0.}, {
        0.0006134154329559882, 0.}, {0.0012268104577487112`, 0.}, {
        0.002453600507334157, 0.}, {0.004907180606505049, 0.}, {
        0.005213878118901411, 0.}, {0.0055205756312977725`, 0.}, {
        0.006133970656090495, 0.}, {0.0073607607056759405`, 0.}, {
        0.007667458218072303, 0.}, {0.007974155730468665, 0.}, {
        0.008587550755261388, 0.}, {0.008894248267657749, 0.}, {
        0.00920094578005411, 0.}, {0.009507643292450471, 0.}, {
        0.009783173892343991, 0.}}], LineBox[CompressedData["
1:eJxF0l1MEmAUBmBAG5SFYqUzhw5DG2mtnKNsGTndMPvZFFu4ETZXpLQsnJW6
GtGgciTTxZyFmqjLlCk1QVdUbshqYwwsKMwQkshUCHALG9Gwujnfxdm75+6c
d4dSfan8HA6DwRz6N/9zqc5U235KwhhU4HlXK4KMvQW0wkAEeWNIINR13Qbr
z8b8YTnvgBtt8kZfegvYMzYhIPdLwWX3Z/knsmTgrbS23eyOdrCIMLajJUUO
7pxrLtJGe8DsSqU6uDIAjlsTcZhpanBmmX9xSqoBXzPnMzp/Pgcna0hOLHYS
PO4uMlkO6tE9/O7USp8BHMoqiB+5+BaMC6sSUjONYPramXHWqAlsEueZ3+y0
gNPbvOEh/zTY+8vl/LDnPXhgWWckyqxgInkw4PHYwPdqtbxe6kfw6mGVp0Zo
BzfkGjRJUzNg16hB+o4yC47wbQpa82dwdiE+ytM5wMw+yvlnyU7UF7kqY57j
Auf4TsbZj38Bb44PEgy/kWMnFertXfPgC3m6T+uPusGqI9W9r1eRQ95tCQsd
X8FaFjNGXuwBC0skjzQLyJS50pl+yTfwgX1ieUruApiTZgljrcghY6v7sug7
+p9YbkM5dRHt79T24QzI626IKvIFS2DMEFftTlwG1z9UtybqkV9l3yWQ6rxg
Uml9zi2iD+zYNW1teon8tIdB9XB/gE+r6SRyFPmmRClyDPvBSRNVsisR5JFF
soJ4LACuoT9Y2dCEnCHeUoJ/jBzdf32T/QlysZn9QjmM/BcGVd64
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQzTaryej2+vf2DFAwIXxzrNtGBD+HR1pZbAuC73Gw
6cXTbQj+f62g4tY9CP6t+zstQvcj+NumKP5TOYTg5/370HHkOIJ/52L/PObL
CP6Otu/Jl68i+FOs4zUX30DwvZfqbXG6h+Dvqjh7svElgj9N17Q/8A2CX/ho
TojiewRfwyfn/oEvCD4L45UlE74j+A+2Wmcl/ELw92Qt1jf4i+BPl+f++v8/
gg8Ai5RcQA==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$5291#2"]& ], {}}, {{}, {}, {}, {}}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[Theta]\"", TraditionalForm], 
    FormBox["\"f\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       OverscriptBox[
        TagBox["\[Theta]", HoldForm], "_"], TraditionalForm], {0.4, -0.3}]}, {
     GrayLevel[0], 
     InsetBox[
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(B\\)]\\)\"", TraditionalForm], {
      0.76, 2.2}]}, {
     GrayLevel[0], 
     InsetBox[
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(A\\)]\\)\"", TraditionalForm], {
      1, 1.2}]}, 
    Thickness[0.001], 
    LineBox[{{0.4, 0}, {0.4, 3}}], 
    Dashing[{0, Small}], 
    Thickness[0.0001], 
    LineBox[{{0.255, 0}, {0.255, 2.01}}], 
    LineBox[{{0.745, 0}, {0.745, 2.01}}], 
    LineBox[{{0.01, 0}, {0.01, 1.01}}], 
    LineBox[{{0.99, 0}, {0.99, 1.01}}]},
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->GrayLevel[0],
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  FrameTicksStyle->GrayLevel[0],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0], 
    AbsoluteThickness[1], 
    AbsoluteDashing[{1, 2}]],
  ImagePadding->All,
  ImageSize->524.4094488188977,
  LabelStyle->{12, 
    GrayLevel[0]},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 0.9999999795918367}, {-0.5, 2.3}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->GrayLevel[0]]], "Output",
 CellChangeTimes->{
  3.7089488989310884`*^9, 3.708948954929117*^9, {3.7089490867697473`*^9, 
   3.7089491019404926`*^9}, {3.7089491418155813`*^9, 
   3.7089491953481836`*^9}, {3.7089492285106688`*^9, 3.708949325973732*^9}, {
   3.708949393679082*^9, 3.7089493981910496`*^9}, {3.7092629198929977`*^9, 
   3.709262935516288*^9}, 3.7371226569212475`*^9, 3.737122749423777*^9, 
   3.7378905335086546`*^9, 3.7378906044876337`*^9, 3.745734919669282*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"6f9d6299-3f26-48c1-90df-e4f13028803b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<figure2.pdf\>\"", ",", "figure2"}], "]"}]], "Input",
 CellChangeTimes->{3.7371226372008038`*^9, 3.7371227537215977`*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"edf5e6e7-4c43-40b6-928f-ed860b1c96b5"],

Cell[BoxData["\<\"figure2.pdf\"\>"], "Output",
 CellChangeTimes->{3.7089493403952894`*^9, 3.7089494027188454`*^9, 
  3.709262940961588*^9, 3.7371227589825544`*^9, 3.737890538245097*^9, 
  3.737890604690754*^9, 3.745734920748844*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"32991b79-4d01-4dc9-b91f-48d7001c3293"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 3: Elite Investment under Two Regime Variances", "Section",
 CellChangeTimes->{{3.707734478656769*^9, 3.7077344913322716`*^9}, {
  3.7077345786753254`*^9, 3.707734578805731*^9}, {3.737122795325365*^9, 
  3.737122805118783*^9}},ExpressionUUID->"9cc85752-8a42-43b8-8c29-\
ea169e9625d4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure3a", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ratio1", "[", 
       RowBox[{
       "0.02", ",", "0.02", ",", "0.5", ",", "\[Theta]1", ",", "0.4"}], "]"}],
       ",", 
      RowBox[{"ratio1", "[", 
       RowBox[{
       "0.08", ",", "0.02", ",", "0.5", ",", "\[Theta]1", ",", "0.4"}], 
       "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]1", ",", "0.2", ",", "0.6"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", ".7"}], ",", "2"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       OverscriptBox[
        SubscriptBox["\[Theta]", "A"], "_"], ",", 
       "\"\<\!\(\*FractionBox[\(Inv\\\ A\), \(Inv\\\ B\)]\)\>\""}], "}"}]}], 
    ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0.19", ",", "0"}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"18.5", "cm"}]}], ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Monochrome\>\""}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", "Thick", "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
          "\"\<\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(A\)], \
\(_\)]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{".4", ",", 
             RowBox[{"-", ".3"}]}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
          "\"\<\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(A\)], \
\(_\)]\)<\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(B\)], \(_\)]\)\>\"",
            ",", 
           RowBox[{"{", 
            RowBox[{".3", ",", 
             RowBox[{"-", ".5"}]}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
          "\"\<\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(A\)], \
\(_\)]\)>\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(B\)], \(_\)]\)\>\"",
            ",", 
           RowBox[{"{", 
            RowBox[{".5", ",", 
             RowBox[{"-", ".5"}]}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<Inv A < Inv B\>\"", ",", 
           RowBox[{"{", 
            RowBox[{".56", ",", ".5"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<Inv A > Inv B\>\"", ",", 
           RowBox[{"{", 
            RowBox[{".56", ",", "1.5"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".03"}], ",", ".03"}], "}"}], "]"}], ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".2", ",", 
            RowBox[{"-", ".3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".39", ",", 
            RowBox[{"-", ".3"}]}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".41", ",", 
            RowBox[{"-", ".3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".6", ",", 
            RowBox[{"-", ".3"}]}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Thickness", "[", "0.003", "]"}], ",", "Dotted", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".4", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".4", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".2", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".6", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"LineLegend", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(A, \[Theta]\), \(2\)]\)=\
\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(B, \[Theta]\), \(2\)]\)\>\"", ",", 
         "\"\<\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(A, \[Theta]\), \
\(2\)]\)>\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(B, \[Theta]\), \
\(2\)]\)\>\""}], "}"}], ",", 
       RowBox[{"LegendMarkerSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"30", ",", "10"}], "}"}]}], ",", 
       RowBox[{"LegendLabel", "\[Rule]", "\"\<Variances\>\""}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"GrayLevel", "[", "0.3", "]"}], ",", "Bold", ",", "16"}], 
         "}"}]}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdyWkog3EAx/FNKYrxzBFlcuZqIUdLjMWWvCCzyFxNuSJDpLxxlXJljhG5
Mgslx7YXckumDHmFUopF2N5sDy8c4fn9X3z7vPgGliulFQ4sFiuICXbTerFt
ziIalEeXwmJ1jhJyE276YP/J4RgssqrXofSWomFBgx+xp4T1BcNtp99w1pNi
2xnHxTLiMn/ICX5SVRw482jxhaoxDx7MzpwIglfuhmDIGf+IhAGFOj50qatM
hJfVUUkwaa6pFza10yroV1alhtNetUQpZdSQr/DWQ2NN7DGU29uJkT5mMxyV
JL/D0NZSJ5rRWm8NgyOOT3w4lSqMg6eyyTTY/CJMh/d5w9mw9d0kgzGbd3LY
17ivgN+v3AjevEV07iwghii4OmhozCem/4i3oEBSvAf7Y45O4HSXxgjN2kA3
f0bVdhQxXKLkwcOB1VBYZm2JgLyljXgopjoFsMOUlwLP2hYzoEn4lgUPNhM1
O4zXFxwtfH6gl+GuNncF6hbsenhv+iVm2PbZfzcW0doU2xX+Ayc4LlI=
  "],
 CellLabel->"In[26]:=",ExpressionUUID->"09272912-09b5-40e7-b29c-d4a534841bf1"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAKBrUYtRS0D/8EoYuK0EAP1zLX4Ls
U9A/7zLvqTMdQD/JLXfBHFbQP7aN/su6J1c/NpCOAE1Y0D/6wILhbSBjP6Ty
pT99WtA/jD4GXf6saj8RVb1+rVzQP1bcRGzHHHE/7Bns/A1h0D8uWMjnV6l4
P1l8Azw+Y9A/PhWKJaBvfD/G3hp7bmXQPyfppTH0GoA/oaNJ+c5p0D8Tp2dv
POGDP1Ytp/WPctA/DyLr6sxtiz9c2xn9tXTQPzMgKGEhSI0/Y4mMBNx20D81
H2XXdSKPP3DlcRMoe9A/Lo7vYY9rkT+KnTwxwIPQP1WLaU44IJU/vQ3SbPCU
0D8yhV0niomcPyTu/ONQt9A/r7yi7BaupT/yrlLSEfzQP21YRU9dQLI/yQfZ
z1V80T+Zf1xN/AnAP/9kItBrB9I/4BzccRaJxz9wmUbxQ4nSP3OTIWOsiM4/
J7Q9KY4I0z9nxOvYgbLSPz3T92OqktM/B6Spv1Nr1j+OyYy/iBPUP01wyoxj
5Nk/PsTkHTmf1D+FIU6ZGajdPzWlD5NbKNU/FAlFKhit4D9nXRUpQKjVP7h3
FHtCZuI/+BnewfYy1j/XWJXrv0TkP8StgXtvtNY/SLBHT1wD5j/uReg3ukDX
Py96q9JL5+c/X8QhC3fK1z/LY2uta8LpPwsaNv/1Stg/usNce6p96z8WdA32
RtbYPyKW/2g8Xu0/XKW/DVpY2T/e3tNJ7R7vP+m8RDzf19k/pyMCQWdr8D/V
2IxtNmLaPxwR82wBWvE//Muvv0/j2j+7uXwSqzjyP4HDlRQ7b9s/lBvfR/4p
8z9NoU6AmPjbP0mN76jpFvQ/VFbiDLh43D8mupiD5PP0P7oPOZypA90/QKAa
7ojj9T9boGpMXYXdP4RBNdI8w/Y/QxdvE4ME3j+i8v3hiJ73P4qSNt16jt4/
/VyfgX6M+D8M5djHNA/fP4OC2ZqDavk/7Ds+tcCa3z9CYexDMlv6PwQ1v2GH
DuA/LPuXZvA7+z81v0h0Z07gP/Ck8bRGGPw/lcsziLCT4D/vBySTRgf9P5ND
jKxa1OA/GCbv6lXm/T/APUbSbRrhP379ktIO2P4/EatpAzpf4T+/5OTlX8X/
P6xz0NQ4cOE/AAAAAAAAAEC/maRu
          "]]}, Annotation[#, "Charting`Private`Tag$5476#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{6, 2}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAD2chq5mZyT/7GrSgLfbkP9qeScae
nck/7zW4GaX55D+m1nHho6HJP+VQvJIc/eQ/PkbCF66pyT/ShsSECwTlP24l
Y4TCuck/q/LUaOkR5T/N46Rd69nJP1rK9TClLeU/i2AoED0ayj+9eTfBHGXl
PwdaL3Xgmso/gdi64QvU5T+8VcNEy7HLP0FPmrKTxOY/5/8MVjq2zD8vgRL9
KqXnP6B2/JSNtc0/9MI4c1qB6D8W9nHZhMrOP/a9N3kzcOk/AiSdXwDNzz8h
dM/4G0/qP1Ytp/WPctA/ieM/CK5A6z/yrlLSEfzQP8xiXkPYLew/yQfZz1V8
0T84nRX4EQvtP/9kItBrB9I/4ZClPPX67T9wmUbxQ4nSP7M/zvrn2u4/J7Q9
KY4I0z9e/qTkcrbvPz3T92OqktM/Izsqr1NS8D+OyYy/iBPUP6xUzqh1wfA/
PsTkHTmf1D/Uyl5q7DnxPzWlD5NbKNU/6EjGQS+w8T9nXRUpQKjVP5Ek+tV5
HvI/+BnewfYy1j/YXBoyGZbyP8StgXtvtNY/tfIGS8AF8z/uReg3ukDXPy7l
3yu8fvM/X8QhC3fK1z+V348ihPXzPwsaNv/1Stg/kTcM1lNk9D8WdA32RtbY
PyvsdFF43PQ/XKW/DVpY2T9a/qmJpEz1P+m8RDzf19k/dhi215y69T/V2Ixt
NmLaPzGPru3pMfY//Muvv0/j2j+AY3PAPqH2P4HDlRQ7b9s/bJQkW+gZ9z9N
oU6AmPjbP0bNrAtekPc/VFbiDLh43D+1YwF52/73P7oPOZypA90/wlZCrq12
+D9boGpMXYXdP2WnT6CH5vg/QxdvE4ME3j/z/zOoLVT5P4qSNt16jt4/IbUE
eCjL+T8M5djHNA/fP+THoQQrOvo/7Ds+tcCa3z9DNytZgrL6PwQ1v2GHDuA/
OASBauEi+z81v0h0Z07gPxvZrZEMkfs/lcsziLCT4D+ZCseAjAj8P5NDjKxa
1OA/r5msLBR4/D/APUbSbRrhP2GFfqDw8Pw/EatpAzpf4T8CeScqmWf9P/+D
+kRnn+E/NsqccEnW/T8d3+yH/eThPwp4/n5OTv4/2KVM2/Ql4j9xgyxKW77+
P7ffFTqlZeI/x5YxKzQs/z/Fm0CavqriP7sGI9Rho/8/WuegqXHg4j8AAAAA
AAAAQL9Zx2M=
          "]]}, Annotation[#, "Charting`Private`Tag$5476#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0.19, 0.}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        OverscriptBox[
         SubscriptBox["\[Theta]", "A"], "_"], TraditionalForm], 
       FormBox[
       "\"\\!\\(\\*FractionBox[\\(Inv\\\\ A\\), \\(Inv\\\\ B\\)]\\)\"", 
        TraditionalForm]}, AxesOrigin -> {0.19, 0.}, AxesStyle -> 
     GrayLevel[0], BaseStyle -> {FontSize -> 14}, DisplayFunction :> Identity,
      Epilog -> {{
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.4, -0.3}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)<\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.3, -0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)>\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.5, -0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox["\"Inv A < Inv B\"", TraditionalForm], {0.56, 0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox["\"Inv A > Inv B\"", TraditionalForm], {0.56, 1.5}]}, 
       Arrowheads[{-0.03, 0.03}], 
       ArrowBox[{{0.2, -0.3}, {0.39, -0.3}}], 
       ArrowBox[{{0.41, -0.3}, {0.6, -0.3}}], 
       Thickness[0.003], 
       Dashing[{0, Small}], 
       LineBox[{{0.4, 0}, {0.4, 2}}], 
       LineBox[{{0.2, 1}, {0.6, 1}}]}, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> GrayLevel[0], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0], 
       AbsoluteThickness[1], 
       AbsoluteDashing[{1, 2}]], ImageSize -> 524.4094488188977, 
     LabelStyle -> {12, 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.19, 0.5999999918367347}, {-0.7, 2}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\)\"", 
       "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)>\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox["\"Variances\"", {
                 GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, 
                 FontFamily -> "Arial"}, Background -> Automatic, 
                StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #2}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"6", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.3], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.2], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.3`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.3]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.3], Editable -> False, Selectable -> False], 
                 ",", "Bold", ",", "16"}], "}"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Variances\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.70773887903679*^9, 3.7077388947874966`*^9}, 
   3.7078244592977123`*^9, 3.707825555374901*^9, {3.707825617325021*^9, 
   3.70782564364997*^9}, {3.7078257110352654`*^9, 3.707825718027025*^9}, {
   3.707825886669091*^9, 3.7078258978309565`*^9}, 3.7078259351024528`*^9, 
   3.707826298180047*^9, {3.707826443030938*^9, 3.7078264782683706`*^9}, {
   3.7078265138779535`*^9, 3.7078265180300927`*^9}, {3.707826548399472*^9, 
   3.707826598406189*^9}, {3.7078266289953203`*^9, 3.707826636439622*^9}, 
   3.7078266673776636`*^9, {3.7078267294676313`*^9, 3.7078267762463384`*^9}, 
   3.70792191342776*^9, {3.708149021666199*^9, 3.708149067015463*^9}, 
   3.7081494259511538`*^9, 3.7088599996746025`*^9, 3.708860031379263*^9, 
   3.737122816639042*^9, {3.737122895591572*^9, 3.737122921067959*^9}, 
   3.7371230137885094`*^9, 3.7378905407626066`*^9, 3.737890604768897*^9, 
   3.7457349217011952`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"ca6382e1-b4da-4f39-b4e8-2658961f2d95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure3b", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ratio1bold", "[", 
      RowBox[{"0.08", ",", "0.02", ",", "0.5", ",", "\[Theta]1", ",", "0.4"}],
       "]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]1", ",", "0.2", ",", "0.4"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", ".7"}], ",", "2"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       OverscriptBox[
        SubscriptBox["\[Theta]", "A"], "_"], ",", 
       "\"\<\!\(\*FractionBox[\(Inv\\\ A\), \(Inv\\\ B\)]\)\>\""}], "}"}]}], 
    ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0.19", ",", "0"}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"18.5", "cm"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black"}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.708149156844136*^9, 3.7081492766591544`*^9}, {
  3.708149334669216*^9, 3.7081494228808093`*^9}, {3.708153064363888*^9, 
  3.7081530645303288`*^9}, {3.737122934249662*^9, 3.7371229413846226`*^9}, {
  3.7378905456410255`*^9, 3.7378905462660074`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"d39c7886-39f0-421f-9ad2-71db9782ee02"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], Thickness[0.01], Opacity[1.], LineBox[CompressedData["
1:eJwVzX1Q03UAx/EfIBiBNtIyOYJI5+Us7oylzA0/YTKXcqaQ68ZKkQdlFWUP
Mka0KXA67qADiSGPIgxWKfEg0cJOjlooT261je077So0JAr47eF74eq81h+f
e9/rr0989rvpecEMw/AD+7+t4m6Gn2hF5afP9zEMi00Vu7//IGBdo6x7e8DS
2otT7/OtmOinLWuCWAwY5DMntlmReOc5zUQwixMWc0TBDitW7G5NEYaxmIs3
Hs7bZUVnqGY0ehULl0m7QppuxZz2RQuJZmH56dmW0/VWiE0i+Skpi5y0neLV
TisKEi6YeJ8E/iV9bEisDXdH/67RjLOI/Lqqqz/bhoN3hG8OhbpRXeN4+7t2
GyoSZp+6L3LjpcVSvnDOBs5nZ4QzRW7UDjZFPrbZjiMHqvjmXjdWep5kDfl2
GEo0Se333PiiJ8je0W3HTsfxtrgNHvzpTB9nFu1ozRqcbcv0QF4eOjKaOI1X
nvinelLngaKJe2Phw2mMPehc/+9NDxq5Pa6pgWkIFaLuqDAv/FsbFx/3T8Mf
NKb/McWL5c89j47scKB87GpxncoLrv5yku2UA28M6wdCBr0ojLIo2n5wIEGg
uv+a24vc+axLU6FO3PjtSkzvMz6UpmYs5uxzot94t6M/14fkyCsp8konjl37
KPybZh9ixCVtEZNOcCQPVJ1WH3jBBoYbRfAwo9wveoTCvhnvXThIcHP2UJBD
TDEaYZYNpxNsTI3da95DYVw4vOuXDIKSjtlz1yUUzX3qNXFSAl6WcqNxL0W2
4NpXrZkEZ8j5PQ37KZYkyf6WHAJM3qqSSynC84VlzScJevuORv+aR+F/eeKt
bwsJVnJ4Oc5jFH9tkb96W0lw5B3PJctxCstSMTemmGDVlrLkEQWFTjl0vUlN
oNDrs9oLKDacFUQ2nSV4uv5eV+5JirWKMd+QlqCI9iy9XkgRtk/2s6uCwJxR
lHRISTG/WvVldCWBmhM+nqqi6NUZDzRWE7gqeAubPqZoL5IIhmoIts55XohT
U9RmOuNd5wi04qvqdRqKwthlz/o6gm0haZyHTlPkM9pbAh1B1dG1MqaUInNm
nUlWT/D78O2LywGnmQyXVecJRLGd82wZRXLX9rqGBoLakoLEP8op/gN6vagA

       "]]},
     Annotation[#, "Charting`Private`Tag$5765#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     OverscriptBox[
      SubscriptBox["\[Theta]", "A"], "_"], TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*FractionBox[\\(Inv\\\\ A\\), \\(Inv\\\\ B\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0.19, 0.},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->524.4094488188977,
  LabelStyle->{12, 
    GrayLevel[0]},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.19, 0.3999999959183674}, {-0.7, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.708149225147943*^9, 3.7081492777925177`*^9}, {
   3.708149338696097*^9, 3.7081494233068037`*^9}, 3.708860034666157*^9, 
   3.7371229449209557`*^9, 3.737123019461177*^9, 3.7378905482204647`*^9, 
   3.737890604831379*^9, 3.745734922150296*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"eeca02d4-5583-4778-8b45-d021b7d2d6ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure3", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"figure3a", ",", "figure3b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7081494293642135`*^9, 3.708149436255842*^9}, {
  3.708149472804129*^9, 3.7081494776036234`*^9}, {3.708153036441761*^9, 
  3.7081530391646395`*^9}, {3.7371229536901445`*^9, 3.737122960679544*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"2ead5959-8191-474b-ae4e-3191db7ac22e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           CapForm["Butt"], 
           AbsoluteThickness[1.6], 
           AbsoluteDashing[{}], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAKBrUYtRS0D/8EoYuK0EAP1zLX4Ls
U9A/7zLvqTMdQD/JLXfBHFbQP7aN/su6J1c/NpCOAE1Y0D/6wILhbSBjP6Ty
pT99WtA/jD4GXf6saj8RVb1+rVzQP1bcRGzHHHE/7Bns/A1h0D8uWMjnV6l4
P1l8Azw+Y9A/PhWKJaBvfD/G3hp7bmXQPyfppTH0GoA/oaNJ+c5p0D8Tp2dv
POGDP1Ytp/WPctA/DyLr6sxtiz9c2xn9tXTQPzMgKGEhSI0/Y4mMBNx20D81
H2XXdSKPP3DlcRMoe9A/Lo7vYY9rkT+KnTwxwIPQP1WLaU44IJU/vQ3SbPCU
0D8yhV0niomcPyTu/ONQt9A/r7yi7BaupT/yrlLSEfzQP21YRU9dQLI/yQfZ
z1V80T+Zf1xN/AnAP/9kItBrB9I/4BzccRaJxz9wmUbxQ4nSP3OTIWOsiM4/
J7Q9KY4I0z9nxOvYgbLSPz3T92OqktM/B6Spv1Nr1j+OyYy/iBPUP01wyoxj
5Nk/PsTkHTmf1D+FIU6ZGajdPzWlD5NbKNU/FAlFKhit4D9nXRUpQKjVP7h3
FHtCZuI/+BnewfYy1j/XWJXrv0TkP8StgXtvtNY/SLBHT1wD5j/uReg3ukDX
Py96q9JL5+c/X8QhC3fK1z/LY2uta8LpPwsaNv/1Stg/usNce6p96z8WdA32
RtbYPyKW/2g8Xu0/XKW/DVpY2T/e3tNJ7R7vP+m8RDzf19k/pyMCQWdr8D/V
2IxtNmLaPxwR82wBWvE//Muvv0/j2j+7uXwSqzjyP4HDlRQ7b9s/lBvfR/4p
8z9NoU6AmPjbP0mN76jpFvQ/VFbiDLh43D8mupiD5PP0P7oPOZypA90/QKAa
7ojj9T9boGpMXYXdP4RBNdI8w/Y/QxdvE4ME3j+i8v3hiJ73P4qSNt16jt4/
/VyfgX6M+D8M5djHNA/fP4OC2ZqDavk/7Ds+tcCa3z9CYexDMlv6PwQ1v2GH
DuA/LPuXZvA7+z81v0h0Z07gP/Ck8bRGGPw/lcsziLCT4D/vBySTRgf9P5ND
jKxa1OA/GCbv6lXm/T/APUbSbRrhP379ktIO2P4/EatpAzpf4T+/5OTlX8X/
P6xz0NQ4cOE/AAAAAAAAAEC/maRu
           "]]}, Annotation[#, "Charting`Private`Tag$5476#1"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           CapForm["Butt"], 
           AbsoluteThickness[1.6], 
           AbsoluteDashing[{6, 2}], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAD2chq5mZyT/7GrSgLfbkP9qeScae
nck/7zW4GaX55D+m1nHho6HJP+VQvJIc/eQ/PkbCF66pyT/ShsSECwTlP24l
Y4TCuck/q/LUaOkR5T/N46Rd69nJP1rK9TClLeU/i2AoED0ayj+9eTfBHGXl
PwdaL3Xgmso/gdi64QvU5T+8VcNEy7HLP0FPmrKTxOY/5/8MVjq2zD8vgRL9
KqXnP6B2/JSNtc0/9MI4c1qB6D8W9nHZhMrOP/a9N3kzcOk/AiSdXwDNzz8h
dM/4G0/qP1Ytp/WPctA/ieM/CK5A6z/yrlLSEfzQP8xiXkPYLew/yQfZz1V8
0T84nRX4EQvtP/9kItBrB9I/4ZClPPX67T9wmUbxQ4nSP7M/zvrn2u4/J7Q9
KY4I0z9e/qTkcrbvPz3T92OqktM/Izsqr1NS8D+OyYy/iBPUP6xUzqh1wfA/
PsTkHTmf1D/Uyl5q7DnxPzWlD5NbKNU/6EjGQS+w8T9nXRUpQKjVP5Ek+tV5
HvI/+BnewfYy1j/YXBoyGZbyP8StgXtvtNY/tfIGS8AF8z/uReg3ukDXPy7l
3yu8fvM/X8QhC3fK1z+V348ihPXzPwsaNv/1Stg/kTcM1lNk9D8WdA32RtbY
PyvsdFF43PQ/XKW/DVpY2T9a/qmJpEz1P+m8RDzf19k/dhi215y69T/V2Ixt
NmLaPzGPru3pMfY//Muvv0/j2j+AY3PAPqH2P4HDlRQ7b9s/bJQkW+gZ9z9N
oU6AmPjbP0bNrAtekPc/VFbiDLh43D+1YwF52/73P7oPOZypA90/wlZCrq12
+D9boGpMXYXdP2WnT6CH5vg/QxdvE4ME3j/z/zOoLVT5P4qSNt16jt4/IbUE
eCjL+T8M5djHNA/fP+THoQQrOvo/7Ds+tcCa3z9DNytZgrL6PwQ1v2GHDuA/
OASBauEi+z81v0h0Z07gPxvZrZEMkfs/lcsziLCT4D+ZCseAjAj8P5NDjKxa
1OA/r5msLBR4/D/APUbSbRrhP2GFfqDw8Pw/EatpAzpf4T8CeScqmWf9P/+D
+kRnn+E/NsqccEnW/T8d3+yH/eThPwp4/n5OTv4/2KVM2/Ql4j9xgyxKW77+
P7ffFTqlZeI/x5YxKzQs/z/Fm0CavqriP7sGI9Rho/8/WuegqXHg4j8AAAAA
AAAAQL9Zx2M=
           "]]}, 
         Annotation[#, 
          "Charting`Private`Tag$5476#2"]& ]}}, {}, {}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           Thickness[0.01], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwVzX1Q03UAx/EfIBiBNtIyOYJI5+Us7oylzA0/YTKXcqaQ68ZKkQdlFWUP
Mka0KXA67qADiSGPIgxWKfEg0cJOjlooT261je077So0JAr47eF74eq81h+f
e9/rr0989rvpecEMw/AD+7+t4m6Gn2hF5afP9zEMi00Vu7//IGBdo6x7e8DS
2otT7/OtmOinLWuCWAwY5DMntlmReOc5zUQwixMWc0TBDitW7G5NEYaxmIs3
Hs7bZUVnqGY0ehULl0m7QppuxZz2RQuJZmH56dmW0/VWiE0i+Skpi5y0neLV
TisKEi6YeJ8E/iV9bEisDXdH/67RjLOI/Lqqqz/bhoN3hG8OhbpRXeN4+7t2
GyoSZp+6L3LjpcVSvnDOBs5nZ4QzRW7UDjZFPrbZjiMHqvjmXjdWep5kDfl2
GEo0Se333PiiJ8je0W3HTsfxtrgNHvzpTB9nFu1ozRqcbcv0QF4eOjKaOI1X
nvinelLngaKJe2Phw2mMPehc/+9NDxq5Pa6pgWkIFaLuqDAv/FsbFx/3T8Mf
NKb/McWL5c89j47scKB87GpxncoLrv5yku2UA28M6wdCBr0ojLIo2n5wIEGg
uv+a24vc+axLU6FO3PjtSkzvMz6UpmYs5uxzot94t6M/14fkyCsp8konjl37
KPybZh9ixCVtEZNOcCQPVJ1WH3jBBoYbRfAwo9wveoTCvhnvXThIcHP2UJBD
TDEaYZYNpxNsTI3da95DYVw4vOuXDIKSjtlz1yUUzX3qNXFSAl6WcqNxL0W2
4NpXrZkEZ8j5PQ37KZYkyf6WHAJM3qqSSynC84VlzScJevuORv+aR+F/eeKt
bwsJVnJ4Oc5jFH9tkb96W0lw5B3PJctxCstSMTemmGDVlrLkEQWFTjl0vUlN
oNDrs9oLKDacFUQ2nSV4uv5eV+5JirWKMd+QlqCI9iy9XkgRtk/2s6uCwJxR
lHRISTG/WvVldCWBmhM+nqqi6NUZDzRWE7gqeAubPqZoL5IIhmoIts55XohT
U9RmOuNd5wi04qvqdRqKwthlz/o6gm0haZyHTlPkM9pbAh1B1dG1MqaUInNm
nUlWT/D78O2LywGnmQyXVecJRLGd82wZRXLX9rqGBoLakoLEP8op/gN6vagA

           "]]}, 
         Annotation[#, "Charting`Private`Tag$5765#1"]& ]}}, {}, {}}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0.19, 0.}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        OverscriptBox[
         SubscriptBox["\[Theta]", "A"], "_"], TraditionalForm], 
       FormBox[
       "\"\\!\\(\\*FractionBox[\\(Inv\\\\ A\\), \\(Inv\\\\ B\\)]\\)\"", 
        TraditionalForm]}, AxesOrigin -> {0.19, 0.}, AxesStyle -> 
     GrayLevel[0], BaseStyle -> {FontSize -> 14}, DisplayFunction :> Identity,
      Epilog -> {{
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.4, -0.3}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)<\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.3, -0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)>\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.5, -0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox["\"Inv A < Inv B\"", TraditionalForm], {0.56, 0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox["\"Inv A > Inv B\"", TraditionalForm], {0.56, 1.5}]}, 
       Arrowheads[{-0.03, 0.03}], 
       ArrowBox[{{0.2, -0.3}, {0.39, -0.3}}], 
       ArrowBox[{{0.41, -0.3}, {0.6, -0.3}}], 
       Thickness[0.003], 
       Dashing[{0, Small}], 
       LineBox[{{0.4, 0}, {0.4, 2}}], 
       LineBox[{{0.2, 1}, {0.6, 1}}]}, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> GrayLevel[0], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0], 
       AbsoluteThickness[1], 
       AbsoluteDashing[{1, 2}]], ImageSize -> 524.4094488188977, 
     LabelStyle -> {12, 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.19, 0.5999999918367347}, {-0.7, 2}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\)\"", 
       "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)>\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox["\"Variances\"", {
                 GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, 
                 FontFamily -> "Arial"}, Background -> Automatic, 
                StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #2}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"6", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.3], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.2], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.3`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.3]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.3], Editable -> False, Selectable -> False], 
                 ",", "Bold", ",", "16"}], "}"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Variances\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.7081494369593735`*^9, 3.708149479336955*^9, 
  3.7081530850164347`*^9, 3.7088600381376457`*^9, 3.7371229627130413`*^9, 
  3.73712302212251*^9, 3.7378905511763983`*^9, 3.737890604862646*^9, 
  3.7457349222596617`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"9426b76c-1a18-4c94-9704-fe6a5afea278"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<figure3.pdf\>\"", ",", "figure3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7077389286689634`*^9, 3.707738940019784*^9}, {
  3.708149482158806*^9, 3.7081494863960056`*^9}, {3.7371229671447153`*^9, 
  3.7371229700392056`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"bfd6db91-0067-4dce-8d9f-c47d9794e63e"],

Cell[BoxData["\<\"figure3.pdf\"\>"], "Output",
 CellChangeTimes->{3.707738941977606*^9, 3.7078267841826153`*^9, 
  3.7079219194522696`*^9, 3.7081494432413445`*^9, 3.708149486883919*^9, 
  3.737122971649828*^9, 3.7371230255482454`*^9, 3.7378905539127846`*^9, 
  3.73789060511263*^9, 3.7457349226858444`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"92d31490-8d13-4c87-8a66-5427bb9704dc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Figure 4: Elite Investment under Two Regime Variances and Two Informational \
Environments\
\>", "Section",
 CellChangeTimes->{{3.70791932115077*^9, 3.707919338506255*^9}, {
  3.7371229838541994`*^9, 
  3.7371229955817966`*^9}},ExpressionUUID->"63970b28-3040-41e4-a486-\
5e7b8bfb1f03"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure4a", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ratioequ", "[", 
       RowBox[{
       "0.5", ",", "\[Theta]1", ",", "0.4", ",", "0.02", ",", "0.02", ",", 
        "0.01", ",", "0.01", ",", "50", ",", ".75"}], "]"}], ",", 
      RowBox[{"ratioequ", "[", 
       RowBox[{
       "0.5", ",", "\[Theta]1", ",", "0.4", ",", "0.08", ",", "0.02", ",", 
        "0.01", ",", "0.01", ",", "50", ",", ".75"}], "]"}], ",", 
      RowBox[{"ratioequ", "[", 
       RowBox[{
       "0.5", ",", "\[Theta]1", ",", "0.4", ",", "0.02", ",", "0.02", ",", 
        "0.2", ",", "0.01", ",", "50", ",", ".75"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]1", ",", "0.2", ",", "0.6"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", ".7"}], ",", "2.5"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       OverscriptBox[
        SubscriptBox["\[Theta]", "A"], "_"], ",", 
       "\"\<\!\(\*FractionBox[\(Inv\\\ A\), \(Inv\\\ B\)]\)\>\""}], "}"}]}], 
    ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0.19", ",", "0"}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"18.5", "cm"}]}], ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Monochrome\>\""}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", "Thick", "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
          "\"\<\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(B\)], \
\(_\)]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{".4", ",", 
             RowBox[{"-", ".3"}]}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
          "\"\<\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(A\)], \
\(_\)]\)<\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(B\)], \(_\)]\)\>\"",
            ",", 
           RowBox[{"{", 
            RowBox[{".3", ",", 
             RowBox[{"-", ".5"}]}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
          "\"\<\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(A\)], \
\(_\)]\)>\!\(\*OverscriptBox[SubscriptBox[\(\[Theta]\), \(B\)], \(_\)]\)\>\"",
            ",", 
           RowBox[{"{", 
            RowBox[{".5", ",", 
             RowBox[{"-", ".5"}]}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<Inv A < Inv B\>\"", ",", 
           RowBox[{"{", 
            RowBox[{".56", ",", ".5"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<Inv A > Inv B\>\"", ",", 
           RowBox[{"{", 
            RowBox[{".56", ",", "1.5"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".03"}], ",", ".03"}], "}"}], "]"}], ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".2", ",", 
            RowBox[{"-", ".3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".39", ",", 
            RowBox[{"-", ".3"}]}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".41", ",", 
            RowBox[{"-", ".3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".6", ",", 
            RowBox[{"-", ".3"}]}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Thickness", "[", "0.003", "]"}], ",", "Dotted", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".4", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".4", ",", "2.5"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".2", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".6", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"LineLegend", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(A, \[Theta]\), \(2\)]\)=\
\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(B, \[Theta]\), \(2\)]\), \
\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(A, u\), \
\(2\)]\)=\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(B, u\), \(2\)]\)\>\"", ",", 
         "\"\<\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(A, \[Theta]\), \
\(2\)]\)>\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(B, \[Theta]\), \(2\)]\), \
\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(A, u\), \
\(2\)]\)=\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(B, u\), \(2\)]\)\>\"", ",", 
         "\"\<\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(A, \[Theta]\), \
\(2\)]\)=\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(B, \[Theta]\), \(2\)]\), \
\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(A, u\), \
\(2\)]\)>\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(B, u\), \(2\)]\)\>\""}], 
        "}"}], ",", 
       RowBox[{"LegendMarkerSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"30", ",", "10"}], "}"}]}], ",", 
       RowBox[{"LegendLabel", "\[Rule]", "\"\<Variances\>\""}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"GrayLevel", "[", "0.3", "]"}], ",", "Bold", ",", "16"}], 
         "}"}]}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7079209966421347`*^9, 3.707921085756665*^9}, {
   3.707921130376954*^9, 3.7079211395762863`*^9}, {3.7079212752782555`*^9, 
   3.707921407197301*^9}, {3.7079215633706846`*^9, 3.7079215661096287`*^9}, {
   3.707921624449257*^9, 3.707921684523845*^9}, {3.7079217356046658`*^9, 
   3.7079217710932283`*^9}, 3.7079219784996595`*^9, {3.707922334740748*^9, 
   3.707922362071949*^9}, 3.7079413448703575`*^9, 3.7080761942935967`*^9, {
   3.708076388480424*^9, 3.7080764080656385`*^9}, {3.708860215390411*^9, 
   3.7088602490157976`*^9}, {3.737123039770484*^9, 3.7371231195654125`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"3ef09d4a-bec1-45bb-be20-4382a6124f55"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAASFZZLnOt0T9oCxntit78Pkhl87dR
rtE/6hiampvkPT+9ivQPfrDRP3F2A7pWB1k/MrD1Z6qy0T9ONbBGw0plP6bV
9r/WtNE/dKleMNsRbj+QIPlvL7nRP9LN3YEF0Hc/ZLb9z+DB0T8EX52qGq+E
P9nb/icNxNE/CP4IpeDghj9OAQCAOcbRP5CbdJ+mEok/OEwCMJLK0T8c2EuU
MnaNPwviBpBD09E/Wyj9PqUekz+yDRBQpuTRP3agqyi95Zs//2Qi0GsH0j82
SAR+9rmmP9D1pjBzCdI/Gl+QBhM9pz+ihiuRegvSPx52HI8vwKc/Rqg0UokP
0j9kpDSgaMaoP47rRtSmF9I/cgBlwtrSqj8ccmvY4SfSP624xQa/664/OH+0
4FdI0j9ilMPHw46zP3CZRvFDidI/mQSFUIzAuz8ntD0pjgjTP71MawLK6MU/
PdP3Y6qS0z/qNaSSHqDOP47JjL+IE9Q/kQv44BFh0z8+xOQdOZ/UP4gLptN8
ydc/NaUPk1so1T+guAdvRR3cP2ddFSlAqNU/4nD5LDMT4D/4Gd7B9jLWPyAN
8893Q+I/xK2Be2+01j9lZ7GaaE7kP+5F6De6QNc/Ucnzkg2F5j9fxCELd8rX
P88BkF9hseg/Cxo2//VK2D9T+PBTYbjqPxZ0DfZG1tg/gfbVdRXr7D9cpb8N
WljZP7eyf791+O4/6bxEPN/X2T++osFuwn3wP9XYjG02Yto/+G+FFCSV8T/8
y6+/T+PaPzScK87bmfI/gcOVFDtv2z9FzJOebbTzP02hToCY+Ns/neco2dbJ
9D9UVuIMuHjcP/phoCeWzPU/ug85nKkD3T8r4NmML+X2P1ugakxdhd0/X731
BR/r9z9DF28TgwTeP9yFPunl6/g/ipI23XqO3j8wUknjhgL6Pwzl2Mc0D98/
hn028X0G+z/sOz61wJrfP7Gs5RVPIPw/BDW/YYcO4D/fOndOdif9PzW/SHRn
TuA/VbQ18XQp/j+VyzOIsJPgP58xtqpNQf8/k0OMrFrU4D/4hgw8PiMAQMA9
RtJtGuE/CfcersKwAEARq2kDOl/hP8DcR9WyOwFA/4P6RGef4T/38WEGTr0B
QB3f7If95OE/GwndQtZJAkDYpUzb9CXiP71PSYkJzQJAt98VOqVl4j8GDMyE
qE0DQMWbQJq+quI/OsqvizTZA0DLy+dV9L3iPwAAAAAAAARAJNHHHA==
          "]]}, Annotation[#, "Charting`Private`Tag$6071#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{6, 2}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVxXk4lHkAB/Dx0uoRxjhSNm3jiEp4iJbw/TmjLXKrWFdWZUuqUc/qqail
Qwr1FG2ObaeQRMlS1qR0DIlMhiGGeVE5Kjfj2t0/Ps+HHRbtFUExGAz3//w/
M5J9NyODj3XJC06ODb1oy3J7mXWTjx1wjfIS9OK2MKb7Vi4f50Yup4a29MLO
5ZlmUT4f/QE6nSfFvTigH37mWQUfhfrORyu/9qKe/itoQMSHEe98voVKHy6E
GKrYatXCYkRD2dCzD/I7TThdmbVAgFGLoqAPlb7PnepK6mBo+P2p4sGP+Lig
6Gdd9gbq/oM2BaOfkBM7e+Xio3q4xfSHx41/xtKJGNGZ2rfwvlSQu1ppAJTe
zWBGfQNCFbeNGqgOwm/9nfFLhxqx+WLJLtn1QzCr2+fGedgIOfaEq2rxEEaK
vJpYs404NO1gXObwBXx5UYPv8XfIrSlT5zl/xcJuncYo+SYI3CYWe5p8w8EM
l2HHc01oCUlI3f/gGwxKbdekLBbgxJBew7jZMGwFk+EFaQKoHDdcFlU1jBR+
Mu+s2nvoW2tHXSAjsKvp0bbKfg9d6SH+9foRWHCZ6bsMm/HSRPyBFTCKyCCN
NSSvGQNXbKQWolFMLe+snjATQjoj1dkcMYaae/Fx0aVCJKcV+Mp+GsMX508b
H5MWyK97kl7IGUdwDXvJ0doWGFhJEqsZE1iiZbkwvqUVr2Klp+MTJrD0iNKE
i7AV3mWHk42Zkwjk8pR2BogQot+ZlZg2ic+VTjbiFhFYCsG/bFGbQnNr8n7L
sDYUfSNWM1lTmK27z/Og2/DmO/Wl/uxpxD+/qr4puh3NK13ns4umsS3X/dT1
qXbEF6bd8LGSwsdPolh+7APu733rUPpYisdMqz/yZTvw2jBqnLF5Brty9m0N
+r0DYZrTJVP8GThqRqudlutEbtxN3cAtszifZtnxW0on6rr/zClsnoVib+ur
DUwxYo9mGOT5z2Fwk92jp5liLGEOV1zumYOcBS80SbkLOkIrP70987DguR6J
dO9Cp2rGHd3P87haZ362OL0LCZ475FQ4C0h3TC7c+b4L+TyFqDuTC3hq69K0
X6sbHddSvlx1YBDW3b2y1sHdKFfQpZTPMsjCaalTZHY3fDSKM9tfM4i2eDBp
rqcbfTlD5T8wZUgrd2v7mL4EG2t0Ayu2y5C/xRrW3AgJAnV6RYtTZciLGySz
qkACjox/x1uhDDn4vFXBakACj2PVEf2aFAnj7hkNGJTgRVSuttJyingnTbUf
G5LAOji+2USLIpY/LbtX/lUCPRd7Z84Kisw1+Xv8OCbBjFq1HoNNkfMSYfrG
OQm495/SGmspckumeYUlk8ZMHy/U3oYiV+jdi/xUaBxsy16+25YiiS/Ghjgs
Gn31J98l2lFk3zl13iM1Gk2lsH9DKGLK8gm1WEbjdgJvlb8zRSpXCbgb2DQ8
V/LEv7pTpIgKT/HRofGSlX3tkgdFsntGYo/o0ti06KTHg+0USchTdS3Vp7F6
0I436UURN1OvfvO1NGYrqrIS/ClirSpp8l5HI+Zelh83gCJGYzFPDhvR+Jhz
Qvn1DoqolKcmPzSmIUiyO6EUSBEqk80RmNBwjVtpaRpEkdG4kqBRUxr/HJgf
8vqZIj1B9i5qZjTMwjq5nGCKCPHO2NycRp5vVdD1EIr8C0YrXYw=
          "]]}, Annotation[#, "Charting`Private`Tag$6071#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{2, 2}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAlz30Vo6z0D8/djAUIUwJPx5Aitwq
tdA/GEHlzoWdSz8k7vzjULfQP4hgiRDwKV8/Kpxv63a50D9CENCcjkJoPzFK
4vKcu9A/HrmtmBJ4cD8+pscB6b/QPxEdOS2pJXk/WF6SH4HI0D+E7ycra0CF
P4vOJ1ux2dA/PFkfKsxNkz/yrlLSEfzQP9kNm6l8VKI/VshI4hL+0D+a89Qc
AdaiP7nhPvITANE/O9kOkIVXoz+AFCsSFgTRP36kgnaOWqQ/DXoDUhoM0T+k
OmpDoGCmPyhFtNEiHNE/b2c53cNsqj9e2xXRMzzRP3Pga4iFQrE/yQfZz1V8
0T/aOQq8zFq5P/9kItBrB9I/GJWzR350xT9wmUbxQ4nSP1YFddBGps0/J7Q9
KY4I0z/j505VZdfSPz3T92OqktM/eVxrnQ8z1z+OyYy/iBPUPxZNETUSRNs/
PsTkHTmf1D8OTb8nfazfPzWlD5NbKNU/E32Q4SIA4j9nXRUpQKjVP6URBlez
BOQ/+BnewfYy1j/jrf/59zTmP8StgXtvtNY/KAi+xOg/6D/uReg3ukDXPxRq
AL2Nduo/X8QhC3fK1z+TopyJ4aLsPwsaNv/1Stg/Fpn9feGp7j8WdA32RtbY
P6JL8c9KbvA/XKW/DVpY2T+9Kcb0+nTxP+m8RDzf19k/IPPHg4J28j/V2Ixt
NmLaP1rAiynkjfM//Muvv0/j2j+W7DHjm5L0P4HDlRQ7b9s/phyasy2t9T9N
oU6AmPjbP/83L+6WwvY/VFbiDLh43D9bsqY8VsX3P7oPOZypA90/jTDgoe/d
+D9boGpMXYXdP8AN/Brf4/k/QxdvE4ME3j8+1kT+peT6P4qSNt16jt4/kqJP
+Eb7+z8M5djHNA/fP+jNPAY+//w/7Ds+tcCa3z8T/esqDxn+PwQ1v2GHDuA/
QIt9YzYg/z81v0h0Z07gP1sCHoMaEQBAlcsziLCT4D8AQd7fBp0AQJNDjKxa
1OA/KK+PRp4fAUDAPUbSbRrhPzoforgirQFAEatpAzpf4T/wBMvfEjgCQP+D
+kRnn+E/JxrlEK65AkAd3+yH/eThP0sxYE02RgNA2KVM2/Ql4j/ud8yTackD
QEC5N4n8QOI/AAAAAAAABEDLm5ju
          "]]}, Annotation[#, "Charting`Private`Tag$6071#3"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0.19, 0.}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        OverscriptBox[
         SubscriptBox["\[Theta]", "A"], "_"], TraditionalForm], 
       FormBox[
       "\"\\!\\(\\*FractionBox[\\(Inv\\\\ A\\), \\(Inv\\\\ B\\)]\\)\"", 
        TraditionalForm]}, AxesOrigin -> {0.19, 0.}, AxesStyle -> 
     GrayLevel[0], BaseStyle -> {FontSize -> 14}, DisplayFunction :> Identity,
      Epilog -> {{
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.4, -0.3}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)<\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.3, -0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)>\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.5, -0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox["\"Inv A < Inv B\"", TraditionalForm], {0.56, 0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox["\"Inv A > Inv B\"", TraditionalForm], {0.56, 1.5}]}, 
       Arrowheads[{-0.03, 0.03}], 
       ArrowBox[{{0.2, -0.3}, {0.39, -0.3}}], 
       ArrowBox[{{0.41, -0.3}, {0.6, -0.3}}], 
       Thickness[0.003], 
       Dashing[{0, Small}], 
       LineBox[{{0.4, 0}, {0.4, 2.5}}], 
       LineBox[{{0.2, 1}, {0.6, 1}}]}, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> GrayLevel[0], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0], 
       AbsoluteThickness[1], 
       AbsoluteDashing[{1, 2}]], ImageSize -> 524.4094488188977, 
     LabelStyle -> {12, 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.19, 0.5999999918367347}, {-0.7, 2.5}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\), \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, u\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, u\\), \
\\(2\\)]\\)\"", 
       "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)>\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\), \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, u\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, u\\), \
\\(2\\)]\\)\"", 
       "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\), \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, u\\), \
\\(2\\)]\\)>\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, u\\), \
\\(2\\)]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox["\"Variances\"", {
                 GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, 
                 FontFamily -> "Arial"}, Background -> Automatic, 
                StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{2, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{2, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"6", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.3], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.2], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.3`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.3]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.3], Editable -> False, Selectable -> False], 
                 ",", "Bold", ",", "16"}], "}"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Variances\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.707921086992509*^9, {3.7079211328889284`*^9, 3.707921140161894*^9}, {
   3.707921263951707*^9, 3.707921407729864*^9}, 3.7079215329020624`*^9, 
   3.707921566770109*^9, {3.707921630652464*^9, 3.707921685154911*^9}, {
   3.707921743259987*^9, 3.7079217717977676`*^9}, 3.7079219793037186`*^9, {
   3.707922335292887*^9, 3.707922362640045*^9}, 3.708076195976509*^9, 
   3.7080764161755114`*^9, {3.70886004354996*^9, 3.7088600646428385`*^9}, {
   3.7088602225323915`*^9, 3.7088602499180984`*^9}, {3.737123095265284*^9, 
   3.737123120081036*^9}, 3.737890555694153*^9, 3.73789060531588*^9, 
   3.7457349235225134`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"0c3921cd-0bf8-499a-92a2-9e05ce5fd608"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure4b", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ratioequbold", "[", 
      RowBox[{
      "0.5", ",", "\[Theta]1", ",", "0.4", ",", "0.08", ",", "0.02", ",", 
       "0.01", ",", "0.01", ",", "50", ",", ".75"}], "]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]1", ",", "0.2", ",", "0.4"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", ".7"}], ",", "2.5"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       OverscriptBox[
        SubscriptBox["\[Theta]", "A"], "_"], ",", 
       "\"\<\!\(\*FractionBox[\(Inv\\\ A\), \(Inv\\\ B\)]\)\>\""}], "}"}]}], 
    ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0.19", ",", "0"}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"18.5", "cm"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black"}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.708150660740344*^9, 3.7081506932521753`*^9}, {
  3.708150744969054*^9, 3.7081507499708323`*^9}, {3.708150779986843*^9, 
  3.708150784185359*^9}, {3.7088602573789625`*^9, 3.708860258343992*^9}, {
  3.7371231238780117`*^9, 3.737123133297889*^9}, {3.7378905598222733`*^9, 
  3.73789056038379*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"39d138da-39e1-4eff-a242-fa0d988fb180"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], Thickness[0.01], Opacity[1.], LineBox[CompressedData["
1:eJwVkX1Q03UAh38Q4nnslptLDw4QjxaCHnekdzRxfYpqUbOSwSEv5tkw2g44
DqQRSBSDciTRGIgIDJCIXUQJpkazM5SFxovsle07FVM6JORlGy9fb3Qa/fHc
557/PnfPDmme5ENfhmFi1/l/eREh02qHCcryAbYP40LePdW/+nXfHJZUs2vd
jcUlEXNOEwqk4j1SXxckU69YeqdM8GbvvrE/wIX3q9KVg/5mBGp6t+qiXWhI
oI/Oic2ICnxdHVPoQs5xn6z7p8zwxhprOJdcyA/LvV9lMmPAztoiW3OBJxDl
1nEtED0bH8wTuuE0qPxSJBa0lvsyik/dMJp3a8vPWDBXeFz+7qAbmQdeFrEd
Fqw9vXOo1M+DFxL6XM+EWsGw6EiY2APWL193XZBaYZO0BJ1Qe6Cutedc77Ai
J2bfQpTJg9cWlHvjZqzwqlVvJm5bQt3lZtZzkTaIVOP8sdQlbPSEuHQyG7L0
5yafNC6h+7yP7dsfbSjJfT5EN7mERw7JMLNgw3v9bX91bl9GRuWGa0N7JhBU
ORIZmLUMeTP/5nzhBLoeLtIHumU08c87xy5OwO/LtnbpzDK8MU0LW70TSPnu
6a3U6BU8/t7DvbbPDvnhVGVn3gr4nT0vWT+3o6D+gytZl1eg4Bjl7X/Y8c7G
1VuTays4Nnv0h7ENDvzDqfioZ/8qlG8kLWSKHTihHfjCpVyFkPXzqxnVDowO
rO78yrCKYFFpe8CoA+7Q/i7iRxHlq2P4HIKAJ5HdbW9T2CKR35ZI8Hdh/YtX
TlEMBYyn/S4hSJMVzt6tpuifPxJ/L4lgPCO5g6mhaOkr27I9hUAfz+OK1BRS
wdVLrekE32yudxvrKRYThF5tJkFcT13vtJZikyyuouVjgtopTTS3l8L71kj2
bwoCf3vB9N4+irldGcl3ighKhyWthy5QGBdL+MElBLI+Llt7kaKhSH+juYxA
+JlmPuJXivCTAlbzSYKHQZoe4XUKnvzPZb2K4DC74NjRQQp/cdpdZxWB2UcS
XGGgmGUX/xRUTXB1hlN9c4iit6H/YJOarHevzU4aoej4JEGgryXY1J0frhil
qEt37HBqCMq0ibcbxygUoY89gafX/1RyxJPjFDJGdVvQQDBZ5Pb1MVGkP9hm
SDtDkJxt0oebKQ4YdD3FjQTDR/oKRBYKYVfs6bNnCSCpjZJbKf4DMJbHUg==

       "]]},
     Annotation[#, "Charting`Private`Tag$6408#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     OverscriptBox[
      SubscriptBox["\[Theta]", "A"], "_"], TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*FractionBox[\\(Inv\\\\ A\\), \\(Inv\\\\ B\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0.19, 0.},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->524.4094488188977,
  LabelStyle->{12, 
    GrayLevel[0]},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.19, 0.3999999959183674}, {-0.7, 2.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7081507551643643`*^9, 3.7081507851715555`*^9, 
  3.708860069348731*^9, 3.7088602593607473`*^9, 3.7371231365174737`*^9, 
  3.7378905607764387`*^9, 3.7378906053939886`*^9, 3.745734923857375*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"7e5cd73f-700a-4cc0-b343-39688e6798b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure4c", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ratioequbold", "[", 
      RowBox[{
      "0.5", ",", "\[Theta]1", ",", "0.4", ",", "0.02", ",", "0.02", ",", 
       "0.2", ",", "0.01", ",", "50", ",", ".75"}], "]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]1", ",", "0.2", ",", "0.4"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", ".7"}], ",", "2.5"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       OverscriptBox[
        SubscriptBox["\[Theta]", "A"], "_"], ",", 
       "\"\<\!\(\*FractionBox[\(Inv\\\ A\), \(Inv\\\ B\)]\)\>\""}], "}"}]}], 
    ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0.19", ",", "0"}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"18.5", "cm"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black"}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7081507930162387`*^9, 3.7081508070126247`*^9}, {
  3.7088602630078936`*^9, 3.7088602641742086`*^9}, {3.737123140685754*^9, 
  3.737123155373324*^9}, {3.7378905635110383`*^9, 3.737890564011032*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"1349f1f0-09ff-4ed7-82f6-5bd073a7a4ff"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], Thickness[0.01], Opacity[1.], LineBox[CompressedData["
1:eJwVzX1MDGAAx/GTylp56QXFUcnL0qu7pKvOTxkyL3NpcbXYUipXI6bcra5Z
JEMqlV6uN8slvVtRaTHykl434XnKra0NDXXP0wtRNvzx3efPr3346cBIA4FA
4PKv/xoUNvk9LCU43ix+ai1gCJyQHfcvIzjlk/lIvIDB27LXzq+cIGy3Wuy5
kMHeK2AUdwgOymLrvYwY2MXtkdIKAveogEqpCQPRtm70vUuw7qynww5Thifd
HmPeWgLL5PWl/osZMpY7KbzuEcxkC27vMWdwrloZL64haO1oSZPZMFj1ZYtE
tQTVXVqDoNUMc5OLp93rCIoGc9TBaxje+BomujYQpHw9kxBqzxA9wJIcmwh2
rnA8GenIUPGzK922naAnrmCXUsIg3J1UZtpDMCJUGZbLGcz4vJFdL8GH6lyP
/lCG+aJkhUcfQb93Y8SfMAYdV3uGDRA8PzrWKQ9nKCm+2FM3SKDNCb5soWCw
m0mblekI4szExpeSGBwqsg7lTxD8mvu2KKqUYbNBpWCDOYXFcJipyyeGd46I
L5VRvHgtEkZEcbw07Zc/CaSor5+8VhXD0TJ+zH/kMEVh3oO5CQWHplFtaRtM
ER8hGlae4QiXdDSXhFAIBaLCm0oOfYD0d/EJirPbtlg/vsZhEu2TqjlPYat1
s7Jo4Pi9t1vRnkBhckOfeuQBx3en0KCPiRQz5+qnNE0cA3rVBqGKotvP7e2m
Vo68xLZXRWqKBJ1rtvQZh8MViVnRFYoeK9dlMYMcVjFd023pFM1z4yl17zmM
98l1Q1cpykdr9VOE4+sSZd2q6xTKBpd+tY6jIa/lUGEmhcN+l4yczxx3LgRI
2rIolorH/9AxjlshxH4om+KXTW2c7TeOhLWzkza5/35fnA/c13NEC9KHJXkU
LX3f2/WcI2R0Zaf8NkVFc43z1mmO/Z2VNcp8ikxNrEb1g0Oq3ZZbUEChSnU2
ezrL8RfvX3GF
       "]]},
     Annotation[#, "Charting`Private`Tag$6569#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     OverscriptBox[
      SubscriptBox["\[Theta]", "A"], "_"], TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*FractionBox[\\(Inv\\\\ A\\), \\(Inv\\\\ B\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0.19, 0.},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->524.4094488188977,
  LabelStyle->{12, 
    GrayLevel[0]},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.19, 0.3999999959183674}, {-0.7, 2.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.708150808152969*^9, 3.7088600719765763`*^9, 
  3.7088602646568193`*^9, 3.7371231578369555`*^9, 3.737890564340452*^9, 
  3.7378906054408636`*^9, 3.745734924228595*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"b341c2da-ae8d-4c39-9b10-f0a9688ac5b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure4", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"figure4a", ",", "figure4b", ",", "figure4c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7081508230784855`*^9, 3.708150836041656*^9}, {
  3.737123162091323*^9, 3.7371231711138916`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"6eb0fdee-de74-4779-97ad-4204106abc09"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           CapForm["Butt"], 
           AbsoluteThickness[1.6], 
           AbsoluteDashing[{}], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAASFZZLnOt0T9oCxntit78Pkhl87dR
rtE/6hiampvkPT+9ivQPfrDRP3F2A7pWB1k/MrD1Z6qy0T9ONbBGw0plP6bV
9r/WtNE/dKleMNsRbj+QIPlvL7nRP9LN3YEF0Hc/ZLb9z+DB0T8EX52qGq+E
P9nb/icNxNE/CP4IpeDghj9OAQCAOcbRP5CbdJ+mEok/OEwCMJLK0T8c2EuU
MnaNPwviBpBD09E/Wyj9PqUekz+yDRBQpuTRP3agqyi95Zs//2Qi0GsH0j82
SAR+9rmmP9D1pjBzCdI/Gl+QBhM9pz+ihiuRegvSPx52HI8vwKc/Rqg0UokP
0j9kpDSgaMaoP47rRtSmF9I/cgBlwtrSqj8ccmvY4SfSP624xQa/664/OH+0
4FdI0j9ilMPHw46zP3CZRvFDidI/mQSFUIzAuz8ntD0pjgjTP71MawLK6MU/
PdP3Y6qS0z/qNaSSHqDOP47JjL+IE9Q/kQv44BFh0z8+xOQdOZ/UP4gLptN8
ydc/NaUPk1so1T+guAdvRR3cP2ddFSlAqNU/4nD5LDMT4D/4Gd7B9jLWPyAN
8893Q+I/xK2Be2+01j9lZ7GaaE7kP+5F6De6QNc/Ucnzkg2F5j9fxCELd8rX
P88BkF9hseg/Cxo2//VK2D9T+PBTYbjqPxZ0DfZG1tg/gfbVdRXr7D9cpb8N
WljZP7eyf791+O4/6bxEPN/X2T++osFuwn3wP9XYjG02Yto/+G+FFCSV8T/8
y6+/T+PaPzScK87bmfI/gcOVFDtv2z9FzJOebbTzP02hToCY+Ns/neco2dbJ
9D9UVuIMuHjcP/phoCeWzPU/ug85nKkD3T8r4NmML+X2P1ugakxdhd0/X731
BR/r9z9DF28TgwTeP9yFPunl6/g/ipI23XqO3j8wUknjhgL6Pwzl2Mc0D98/
hn028X0G+z/sOz61wJrfP7Gs5RVPIPw/BDW/YYcO4D/fOndOdif9PzW/SHRn
TuA/VbQ18XQp/j+VyzOIsJPgP58xtqpNQf8/k0OMrFrU4D/4hgw8PiMAQMA9
RtJtGuE/CfcersKwAEARq2kDOl/hP8DcR9WyOwFA/4P6RGef4T/38WEGTr0B
QB3f7If95OE/GwndQtZJAkDYpUzb9CXiP71PSYkJzQJAt98VOqVl4j8GDMyE
qE0DQMWbQJq+quI/OsqvizTZA0DLy+dV9L3iPwAAAAAAAARAJNHHHA==
           "]]}, Annotation[#, "Charting`Private`Tag$6071#1"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           CapForm["Butt"], 
           AbsoluteThickness[1.6], 
           AbsoluteDashing[{6, 2}], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwVxXk4lHkAB/Dx0uoRxjhSNm3jiEp4iJbw/TmjLXKrWFdWZUuqUc/qqail
Qwr1FG2ObaeQRMlS1qR0DIlMhiGGeVE5Kjfj2t0/Ps+HHRbtFUExGAz3//w/
M5J9NyODj3XJC06ODb1oy3J7mXWTjx1wjfIS9OK2MKb7Vi4f50Yup4a29MLO
5ZlmUT4f/QE6nSfFvTigH37mWQUfhfrORyu/9qKe/itoQMSHEe98voVKHy6E
GKrYatXCYkRD2dCzD/I7TThdmbVAgFGLoqAPlb7PnepK6mBo+P2p4sGP+Lig
6Gdd9gbq/oM2BaOfkBM7e+Xio3q4xfSHx41/xtKJGNGZ2rfwvlSQu1ppAJTe
zWBGfQNCFbeNGqgOwm/9nfFLhxqx+WLJLtn1QzCr2+fGedgIOfaEq2rxEEaK
vJpYs404NO1gXObwBXx5UYPv8XfIrSlT5zl/xcJuncYo+SYI3CYWe5p8w8EM
l2HHc01oCUlI3f/gGwxKbdekLBbgxJBew7jZMGwFk+EFaQKoHDdcFlU1jBR+
Mu+s2nvoW2tHXSAjsKvp0bbKfg9d6SH+9foRWHCZ6bsMm/HSRPyBFTCKyCCN
NSSvGQNXbKQWolFMLe+snjATQjoj1dkcMYaae/Fx0aVCJKcV+Mp+GsMX508b
H5MWyK97kl7IGUdwDXvJ0doWGFhJEqsZE1iiZbkwvqUVr2Klp+MTJrD0iNKE
i7AV3mWHk42Zkwjk8pR2BogQot+ZlZg2ic+VTjbiFhFYCsG/bFGbQnNr8n7L
sDYUfSNWM1lTmK27z/Og2/DmO/Wl/uxpxD+/qr4puh3NK13ns4umsS3X/dT1
qXbEF6bd8LGSwsdPolh+7APu733rUPpYisdMqz/yZTvw2jBqnLF5Brty9m0N
+r0DYZrTJVP8GThqRqudlutEbtxN3cAtszifZtnxW0on6rr/zClsnoVib+ur
DUwxYo9mGOT5z2Fwk92jp5liLGEOV1zumYOcBS80SbkLOkIrP70987DguR6J
dO9Cp2rGHd3P87haZ362OL0LCZ475FQ4C0h3TC7c+b4L+TyFqDuTC3hq69K0
X6sbHddSvlx1YBDW3b2y1sHdKFfQpZTPMsjCaalTZHY3fDSKM9tfM4i2eDBp
rqcbfTlD5T8wZUgrd2v7mL4EG2t0Ayu2y5C/xRrW3AgJAnV6RYtTZciLGySz
qkACjox/x1uhDDn4vFXBakACj2PVEf2aFAnj7hkNGJTgRVSuttJyingnTbUf
G5LAOji+2USLIpY/LbtX/lUCPRd7Z84Kisw1+Xv8OCbBjFq1HoNNkfMSYfrG
OQm495/SGmspckumeYUlk8ZMHy/U3oYiV+jdi/xUaBxsy16+25YiiS/Ghjgs
Gn31J98l2lFk3zl13iM1Gk2lsH9DKGLK8gm1WEbjdgJvlb8zRSpXCbgb2DQ8
V/LEv7pTpIgKT/HRofGSlX3tkgdFsntGYo/o0ti06KTHg+0USchTdS3Vp7F6
0I436UURN1OvfvO1NGYrqrIS/ClirSpp8l5HI+Zelh83gCJGYzFPDhvR+Jhz
Qvn1DoqolKcmPzSmIUiyO6EUSBEqk80RmNBwjVtpaRpEkdG4kqBRUxr/HJgf
8vqZIj1B9i5qZjTMwjq5nGCKCPHO2NycRp5vVdD1EIr8C0YrXYw=
           "]]}, Annotation[#, "Charting`Private`Tag$6071#2"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           CapForm["Butt"], 
           AbsoluteThickness[1.6], 
           AbsoluteDashing[{2, 2}], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAlz30Vo6z0D8/djAUIUwJPx5Aitwq
tdA/GEHlzoWdSz8k7vzjULfQP4hgiRDwKV8/Kpxv63a50D9CENCcjkJoPzFK
4vKcu9A/HrmtmBJ4cD8+pscB6b/QPxEdOS2pJXk/WF6SH4HI0D+E7ycra0CF
P4vOJ1ux2dA/PFkfKsxNkz/yrlLSEfzQP9kNm6l8VKI/VshI4hL+0D+a89Qc
AdaiP7nhPvITANE/O9kOkIVXoz+AFCsSFgTRP36kgnaOWqQ/DXoDUhoM0T+k
OmpDoGCmPyhFtNEiHNE/b2c53cNsqj9e2xXRMzzRP3Pga4iFQrE/yQfZz1V8
0T/aOQq8zFq5P/9kItBrB9I/GJWzR350xT9wmUbxQ4nSP1YFddBGps0/J7Q9
KY4I0z/j505VZdfSPz3T92OqktM/eVxrnQ8z1z+OyYy/iBPUPxZNETUSRNs/
PsTkHTmf1D8OTb8nfazfPzWlD5NbKNU/E32Q4SIA4j9nXRUpQKjVP6URBlez
BOQ/+BnewfYy1j/jrf/59zTmP8StgXtvtNY/KAi+xOg/6D/uReg3ukDXPxRq
AL2Nduo/X8QhC3fK1z+TopyJ4aLsPwsaNv/1Stg/Fpn9feGp7j8WdA32RtbY
P6JL8c9KbvA/XKW/DVpY2T+9Kcb0+nTxP+m8RDzf19k/IPPHg4J28j/V2Ixt
NmLaP1rAiynkjfM//Muvv0/j2j+W7DHjm5L0P4HDlRQ7b9s/phyasy2t9T9N
oU6AmPjbP/83L+6WwvY/VFbiDLh43D9bsqY8VsX3P7oPOZypA90/jTDgoe/d
+D9boGpMXYXdP8AN/Brf4/k/QxdvE4ME3j8+1kT+peT6P4qSNt16jt4/kqJP
+Eb7+z8M5djHNA/fP+jNPAY+//w/7Ds+tcCa3z8T/esqDxn+PwQ1v2GHDuA/
QIt9YzYg/z81v0h0Z07gP1sCHoMaEQBAlcsziLCT4D8AQd7fBp0AQJNDjKxa
1OA/KK+PRp4fAUDAPUbSbRrhPzoforgirQFAEatpAzpf4T/wBMvfEjgCQP+D
+kRnn+E/JxrlEK65AkAd3+yH/eThP0sxYE02RgNA2KVM2/Ql4j/ud8yTackD
QEC5N4n8QOI/AAAAAAAABEDLm5ju
           "]]}, 
         Annotation[#, 
          "Charting`Private`Tag$6071#3"]& ]}}, {}, {}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           Thickness[0.01], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwVkX1Q03UAh38Q4nnslptLDw4QjxaCHnekdzRxfYpqUbOSwSEv5tkw2g44
DqQRSBSDciTRGIgIDJCIXUQJpkazM5SFxovsle07FVM6JORlGy9fb3Qa/fHc
557/PnfPDmme5ENfhmFi1/l/eREh02qHCcryAbYP40LePdW/+nXfHJZUs2vd
jcUlEXNOEwqk4j1SXxckU69YeqdM8GbvvrE/wIX3q9KVg/5mBGp6t+qiXWhI
oI/Oic2ICnxdHVPoQs5xn6z7p8zwxhprOJdcyA/LvV9lMmPAztoiW3OBJxDl
1nEtED0bH8wTuuE0qPxSJBa0lvsyik/dMJp3a8vPWDBXeFz+7qAbmQdeFrEd
Fqw9vXOo1M+DFxL6XM+EWsGw6EiY2APWL193XZBaYZO0BJ1Qe6Cutedc77Ai
J2bfQpTJg9cWlHvjZqzwqlVvJm5bQt3lZtZzkTaIVOP8sdQlbPSEuHQyG7L0
5yafNC6h+7yP7dsfbSjJfT5EN7mERw7JMLNgw3v9bX91bl9GRuWGa0N7JhBU
ORIZmLUMeTP/5nzhBLoeLtIHumU08c87xy5OwO/LtnbpzDK8MU0LW70TSPnu
6a3U6BU8/t7DvbbPDvnhVGVn3gr4nT0vWT+3o6D+gytZl1eg4Bjl7X/Y8c7G
1VuTays4Nnv0h7ENDvzDqfioZ/8qlG8kLWSKHTihHfjCpVyFkPXzqxnVDowO
rO78yrCKYFFpe8CoA+7Q/i7iRxHlq2P4HIKAJ5HdbW9T2CKR35ZI8Hdh/YtX
TlEMBYyn/S4hSJMVzt6tpuifPxJ/L4lgPCO5g6mhaOkr27I9hUAfz+OK1BRS
wdVLrekE32yudxvrKRYThF5tJkFcT13vtJZikyyuouVjgtopTTS3l8L71kj2
bwoCf3vB9N4+irldGcl3ighKhyWthy5QGBdL+MElBLI+Llt7kaKhSH+juYxA
+JlmPuJXivCTAlbzSYKHQZoe4XUKnvzPZb2K4DC74NjRQQp/cdpdZxWB2UcS
XGGgmGUX/xRUTXB1hlN9c4iit6H/YJOarHevzU4aoej4JEGgryXY1J0frhil
qEt37HBqCMq0ibcbxygUoY89gafX/1RyxJPjFDJGdVvQQDBZ5Pb1MVGkP9hm
SDtDkJxt0oebKQ4YdD3FjQTDR/oKRBYKYVfs6bNnCSCpjZJbKf4DMJbHUg==

           "]]}, 
         Annotation[#, 
          "Charting`Private`Tag$6408#1"]& ]}}, {}, {}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           Thickness[0.01], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwVzX1MDGAAx/GTylp56QXFUcnL0qu7pKvOTxkyL3NpcbXYUipXI6bcra5Z
JEMqlV6uN8slvVtRaTHykl434XnKra0NDXXP0wtRNvzx3efPr3346cBIA4FA
4PKv/xoUNvk9LCU43ix+ai1gCJyQHfcvIzjlk/lIvIDB27LXzq+cIGy3Wuy5
kMHeK2AUdwgOymLrvYwY2MXtkdIKAveogEqpCQPRtm70vUuw7qynww5Thifd
HmPeWgLL5PWl/osZMpY7KbzuEcxkC27vMWdwrloZL64haO1oSZPZMFj1ZYtE
tQTVXVqDoNUMc5OLp93rCIoGc9TBaxje+BomujYQpHw9kxBqzxA9wJIcmwh2
rnA8GenIUPGzK922naAnrmCXUsIg3J1UZtpDMCJUGZbLGcz4vJFdL8GH6lyP
/lCG+aJkhUcfQb93Y8SfMAYdV3uGDRA8PzrWKQ9nKCm+2FM3SKDNCb5soWCw
m0mblekI4szExpeSGBwqsg7lTxD8mvu2KKqUYbNBpWCDOYXFcJipyyeGd46I
L5VRvHgtEkZEcbw07Zc/CaSor5+8VhXD0TJ+zH/kMEVh3oO5CQWHplFtaRtM
ER8hGlae4QiXdDSXhFAIBaLCm0oOfYD0d/EJirPbtlg/vsZhEu2TqjlPYat1
s7Jo4Pi9t1vRnkBhckOfeuQBx3en0KCPiRQz5+qnNE0cA3rVBqGKotvP7e2m
Vo68xLZXRWqKBJ1rtvQZh8MViVnRFYoeK9dlMYMcVjFd023pFM1z4yl17zmM
98l1Q1cpykdr9VOE4+sSZd2q6xTKBpd+tY6jIa/lUGEmhcN+l4yczxx3LgRI
2rIolorH/9AxjlshxH4om+KXTW2c7TeOhLWzkza5/35fnA/c13NEC9KHJXkU
LX3f2/WcI2R0Zaf8NkVFc43z1mmO/Z2VNcp8ikxNrEb1g0Oq3ZZbUEChSnU2
ezrL8RfvX3GF
           "]]}, 
         Annotation[#, "Charting`Private`Tag$6569#1"]& ]}}, {}, {}}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0.19, 0.}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        OverscriptBox[
         SubscriptBox["\[Theta]", "A"], "_"], TraditionalForm], 
       FormBox[
       "\"\\!\\(\\*FractionBox[\\(Inv\\\\ A\\), \\(Inv\\\\ B\\)]\\)\"", 
        TraditionalForm]}, AxesOrigin -> {0.19, 0.}, AxesStyle -> 
     GrayLevel[0], BaseStyle -> {FontSize -> 14}, DisplayFunction :> Identity,
      Epilog -> {{
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.4, -0.3}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)<\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.3, -0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox[
         "\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(A\\)], \
\\(_\\)]\\)>\\!\\(\\*OverscriptBox[SubscriptBox[\\(\[Theta]\\), \\(B\\)], \
\\(_\\)]\\)\"", TraditionalForm], {0.5, -0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox["\"Inv A < Inv B\"", TraditionalForm], {0.56, 0.5}]}, {
        GrayLevel[0], 
        InsetBox[
         FormBox["\"Inv A > Inv B\"", TraditionalForm], {0.56, 1.5}]}, 
       Arrowheads[{-0.03, 0.03}], 
       ArrowBox[{{0.2, -0.3}, {0.39, -0.3}}], 
       ArrowBox[{{0.41, -0.3}, {0.6, -0.3}}], 
       Thickness[0.003], 
       Dashing[{0, Small}], 
       LineBox[{{0.4, 0}, {0.4, 2.5}}], 
       LineBox[{{0.2, 1}, {0.6, 1}}]}, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> GrayLevel[0], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0], 
       AbsoluteThickness[1], 
       AbsoluteDashing[{1, 2}]], ImageSize -> 524.4094488188977, 
     LabelStyle -> {12, 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.19, 0.5999999918367347}, {-0.7, 2.5}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\), \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, u\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, u\\), \
\\(2\\)]\\)\"", 
       "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)>\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\), \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, u\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, u\\), \
\\(2\\)]\\)\"", 
       "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, \[Theta]\\), \
\\(2\\)]\\)=\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, \[Theta]\\), \
\\(2\\)]\\), \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(A, u\\), \
\\(2\\)]\\)>\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(B, u\\), \
\\(2\\)]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox["\"Variances\"", {
                 GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, 
                 FontFamily -> "Arial"}, Background -> Automatic, 
                StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{2, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{2, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"6", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.3], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.2], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.3`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.3]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.3], Editable -> False, Selectable -> False], 
                 ",", "Bold", ",", "16"}], "}"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Variances\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.708150836905899*^9, 3.708860074812434*^9, 
  3.708860268076478*^9, 3.737123172523488*^9, 3.737890566887578*^9, 
  3.737890605503376*^9, 3.7457349242755113`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"b363abb2-041c-4758-b414-638a80cb13f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<figure4.pdf\>\"", ",", " ", "figure4"}], "]"}]], "Input",
 CellChangeTimes->{{3.7079217839634876`*^9, 3.7079217934720964`*^9}, {
  3.7081508417007704`*^9, 3.7081508451533194`*^9}, {3.737123177473749*^9, 
  3.737123179907777*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"5cd3aa04-fdec-4982-9648-3c65c79a8883"],

Cell[BoxData["\<\"figure4.pdf\"\>"], "Output",
 CellChangeTimes->{3.7079217941052294`*^9, 3.707921984170248*^9, 
  3.7079223651184874`*^9, 3.708150846553646*^9, 3.708860273540112*^9, 
  3.7371231806355753`*^9, 3.7378906058783646`*^9, 3.74573492457513*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"407945ce-9153-4e68-adc8-d01655a1c93f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure G1: Elite Investment and Discount Rate", "Section",
 CellChangeTimes->{{3.7079147012767725`*^9, 3.7079147214770613`*^9}, {
  3.7371232530785246`*^9, 
  3.737123260133132*^9}},ExpressionUUID->"4c0fc732-88a1-4cb4-ba8b-\
41386f22bbdf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figureG1a", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"prinv\[Beta]", "[", 
       RowBox[{
       "0.5", ",", "0.4", ",", "\[Beta]", ",", "0.4", ",", "0.02", ",", "50", 
        ",", "0.01"}], "]"}], ",", 
      RowBox[{"prinv\[Beta]", "[", 
       RowBox[{
       "0.5", ",", "0.4", ",", "\[Beta]", ",", "0.8", ",", "0.02", ",", "50", 
        ",", "0.01"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", "0.8", ",", "1"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Beta]\>\"", ",", "\"\<Pr(invest)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0.8", ",", "0"}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"18.5", "cm"}]}], ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Monochrome\>\""}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", "Thick", "}"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"LineLegend", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*OverscriptBox[\(p\), \(_\)]\) = 0.4\>\"", ",", 
         "\"\<\!\(\*OverscriptBox[\(p\), \(_\)]\) = 0.8\>\""}], "}"}], ",", 
       RowBox[{"LegendMarkerSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"30", ",", "10"}], "}"}]}], ",", 
       RowBox[{"LegendLabel", "\[Rule]", "\"\<Turnover\>\""}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"GrayLevel", "[", "0.3", "]"}], ",", "Bold", ",", "16"}], 
         "}"}]}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7079155124031553`*^9, 3.7079155655970697`*^9}, {
  3.7079157056652284`*^9, 3.7079157060243587`*^9}, {3.7079214325374746`*^9, 
  3.7079214327978687`*^9}, {3.7079232649616394`*^9, 3.7079232761886797`*^9}, {
  3.7079793852580433`*^9, 3.7079794015031977`*^9}, {3.707990940218033*^9, 
  3.707990963470607*^9}, {3.707990996653825*^9, 3.7079910063685884`*^9}, {
  3.7079911435102262`*^9, 3.707991277153179*^9}, {3.7079913174984407`*^9, 
  3.707991318108466*^9}, {3.7079915330308485`*^9, 3.707991542698619*^9}, {
  3.7079916078639402`*^9, 3.7079916246634307`*^9}, {3.7371232706059804`*^9, 
  3.7371232711372375`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"8c027bc0-cdff-4a7b-b191-59a5cf6d0c65"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVznk01AkAB/BplGNCtoNiWyq6HLtL2q3UV4PaVpp0PVGZJ/aR52hqcycl
UY7KMc50h4myinWVasV08RsyaDDG+Zvr50mxuXb2j+/7vs8f3/e+K7yC9vnQ
aTSaiyr/967UNzlZWSQmOusCuAtIMLN/hGE2Cc5ZI8tpHRJ2t9Ik2Sqfj7g6
5aVNwurRsXW5OSR4FfVvrbRILH47Wn4jj0RgKdO8gU5CTDcS3LlFIqvsL8W3
L8MI5fhrlhSSqPi+KSxQNIwCV+0/X1aSaOa7hV8sHIYxMfMhX0QigwmfqS3D
8FFfW2o5TeLYdePuZ21D2Ppl3rKly6Xg3i5t4JwegsW9tDkVkKK4xXGlmDEE
KcOdo86WItXa2mx/4SDqfm4+zrggxVaTvNYH9oNYs3Cy88Q9KRhDh9+NdA7g
aMGRzoh6KYZ/Gfl9MnIAvNlA9+3DUjQ8+Fq7ZOkAGrX/9qrQlCFDU6f8Q1U/
zrQ8HUlYK8NmsV2vLbsfdh7es3rOMlh3jEa1z/SByNyV8Zu/DD7PSkxFd/sQ
xe0p3pAsQ65jwyY49qGatd456rEMmpKMm/sHJWis5QWfaZYh4HMbPSlFAoW8
S9/0swxCjUBPlrUEYmKH0/lFchTRdUUGol7IQthjaRvlcJeELLoS3Yt4odW6
uYfleBydE5po1osxuc3gqjA54PyDwkMgRsgrctVEjhxxz7eZTIeKwWe1kZE1
cszGJFxnrRajOD3E9phIjhATXy0FrwcFufw5YzOqvW5T75rZbnAO7zu02ViB
mEjjq56e3TggvGJuy1SgXzifqivrQqNueFyitwK87j+qCe0uMKZu+KXFKiB/
M8aP4IjgXXT6/d4HCqgZBI+nv/uEJN2YytoGBZyng7fo23zCTgum+aUhBTTi
XpztyevEsvlPls9jKBEfudDBY7oDVflHMm3WK5H5a0OGxLcDp748TdV3UUKv
Seqwn9+Ob7QdBkUBSvDz9p3Kt23HoteXTbKTlCguH8uj3xfCcfe5om2PlbAw
YL9Pmi+EQ/zDmtRmJQjOM+/8yDa4X0xg5X1W4gCt+rV230eo2Rn5qulT4Dop
w7kuHxFR0KdpuJFCWJChxsFXrWC0HVk/4EbhYMDGO0VWrfCt1G5lh1GgYreZ
ad5rgduhk2qbsig0JqaoWRq3wPNJXFl9NQXfSc/2lSkC2DYKZHQRBbUShmur
lgBWlYbi6yqnm+iEXtAQYHWRV+vKLgpz90yVWc8TQD9xtIbZTcHcP/fENZoA
E6yFyefFFIwe/SNgjROoEbr+RB+gwLtbm9TcT8BhqPn0HCWFXanc+73PCdi1
L/W7prLlKR2/1FoCG/jsoyso1d8Xu+2dqgmY8kacto9Q+LRzlWVhOQH1ID2D
mFEKTlu+o3GKCbz5yqqkjVNosZlM0Mgh8HKIW3xV5RG/2MyqTALV7T23TCYo
lMTVVwdkEHhYFXTZ/l8KHxf727deI5B8NsXj3CSF43JT5u14AnFBQpbeFAWN
uj1fD8YRiGYbO95UOad2zXOtWALBzEcWddMUSjskySejCfjajJvsnaEwwX+Z
bhZFgG2KJWKVb19yKe0IJ+C25JJW8Kzq32RMb1IoAVf1pulZlbMWeK5mniHw
H2K1g5Q=
          "]]}, Annotation[#, "Charting`Private`Tag$6846#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{6, 2}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVx31czAcAx/Hr6dTt9KBH0oqaHlihzmaLLylp5GIeSrn16mGutalIkbGE
RGqooUt0xdaj0ig9kVKK0e+uh7se72wjd7+7+7XogZ7c/vi8Pq/3opCo7eGa
NBrNV93/98l4mp2VJYOL7WhBiYMUHjwXLODJoIjNS5HYS+HOz/ybp3bM26Do
eWo7l3Ecr2XLkHJxfPfhz6QweTZSeT1HBq5+5RnPxVJINS2F+XwZjhuouIOW
Uhw+EKl7u1CGuZ5TzhYGUhRsYx5qrJaBxUrieJMSWAtmXtzol2G0lOvz4JgE
4XSHO59Py/BwelNjooUEa0Z15ltYyTE+t6/YrXIQy25lalRBDgPsp+dtGYSc
secAPViO0ZxAPVNyAA0riFDGSTlupLbcj0gagP28yd4fbskRtf1kecXCAewt
COo92iyHT/58l/oH/Sie3b9n/Rs5lhjb5IkC+tHKvB9SpUviw8FVvAtTfYjr
uDd81oFE7ubvm8f5fXAPDJs13Ewiw3NhCG9dHwRXfS5viiTxxFGse/11L45d
kZS6pZOYLRu20kjuRS3bafOxchIRvg2nTB160VpfHB1HkHjOoQ1tFfRAqRgw
s3tL4suDVzYYxfZAKtjolWSsgMH+Lxp6rHpAxge/y1ylQJ0vf3zLIzFSRM6O
2gEKmJGPg7buE+OdwvW17REF+JXeAisTMeKbZLYT2QqQTlzthzUitLG7ZT/X
KRCqrIgz4opQ+ls8i9OvQPbRAe59cxEKrrVpvJtR4MSIYdfOR904ELB911fW
Stx0XF0SE9ONHaLUpSwPJXbuLgvMs+xGq35C8vkwJap6+x85tXaBMXU9IvOU
Ej2EbdtsQhfCimKf+/2hxKu4lxKmQxfS9E9U1z9RQk/+UsO3rxPeyzyWnhlS
ItT5XP6dC52Y/8ldKx2GCoWFFaej1nWi5kbQVVcnFW7PSXNxHevAwdF7GWa+
KpDCT5Mjf+/AB9pG86KfVPCqEeZcDOqAccs5G16aClUttq5NJh3w3JJYtLZc
hbG4nqcpT4TYkFJSl0Go8OxmymWjRCH2nD7Lznmrwnky2XuTqxBa7pZcLTMK
K9Jz+WlvBDha8I/uglUUrPMr9/2YLwCjO8jplT8FvbzHLPMAAbjVzM7gIxRE
pa1jXiYC+O+K0VqdRaFpxX/h/gIC391N/rO5loJ5RIDft2cJsFqFpGY/hdDG
28ySjQScqxdIL6ldNumSe9KLwJKikM7FAxTCL9mvDfQkYHZ+pM5jkMJ4bnwW
w4PABHteepKUAtWY+jxiDYE60bblmq8oVK/RXerkRmDDEBGroaIwh3WoqmIR
AXexRcRFtSftyq+m2hBwawveu4iiEPAX+1SYNQG74mGv9cMU2Aa1CWZWBOhR
huYnRijQ9Vb+m2BB4OkYu5o2TsFXx77Qy4BA49CV0gtqB+RGLrfWJ1ArlvBt
JijUOTMbJ5gESmqizq17T+HFKEe7hEEg/fivgYmTFDJefq1jTCeQHCViG05R
2PfMT6LQJvBLsLVnrtorv6lvatEiEO1RtqxhmsJqMa84QYMA13Xcxm+GAodg
lO2gEQi2g6lU7RBO7pG9M+3wNz2jFz1LIVPYWWg01Y5t9PbpWbWDXt9RNb9v
x0chinTZ
          "]]}, Annotation[#, "Charting`Private`Tag$6846#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0.8, 0.}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"\[Beta]\"", TraditionalForm], 
       FormBox["\"Pr(invest)\"", TraditionalForm]}, AxesOrigin -> {0.8, 0.}, 
     AxesStyle -> GrayLevel[0], BaseStyle -> {FontSize -> 14}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> GrayLevel[0], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0], 
       AbsoluteThickness[1], 
       AbsoluteDashing[{1, 2}]], ImageSize -> 524.4094488188977, 
     LabelStyle -> {12, 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.8, 0.9999999959183673}, {0, 1}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*OverscriptBox[\\(p\\), \\(_\\)]\\) = 0.4\"", 
       "\"\\!\\(\\*OverscriptBox[\\(p\\), \\(_\\)]\\) = 0.8\""}, "LineLegend",
       DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox["\"Turnover\"", {
                 GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, 
                 FontFamily -> "Arial"}, Background -> Automatic, 
                StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #2}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"6", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.3], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.2], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.3`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.3]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.3], Editable -> False, Selectable -> False], 
                 ",", "Bold", ",", "16"}], "}"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Turnover\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.707915531017679*^9, 3.7079155660028286`*^9}, 
   3.7079157066276636`*^9, 3.7079214331428633`*^9, {3.707923268173078*^9, 
   3.7079232766083612`*^9}, {3.7079793860420513`*^9, 
   3.7079794020926485`*^9}, {3.707990941434827*^9, 3.7079909640729184`*^9}, 
   3.707991007303261*^9, 3.7079912862573223`*^9, 3.7079913269781413`*^9, 
   3.7079915431049566`*^9, {3.707991612280739*^9, 3.707991625257387*^9}, 
   3.708860449365062*^9, 3.737123273658471*^9, 3.73789056904621*^9, 
   3.7378906059877596`*^9, 3.7457349246827116`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"6a171733-1a08-4b38-be83-ea9f1e3d6a35"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<figureG1a.pdf\>\"", ",", "figureG1a"}], "]"}]], "Input",
 CellChangeTimes->{{3.707915723587271*^9, 3.7079157338946404`*^9}, {
  3.7079913211586704`*^9, 3.7079913241296167`*^9}, {3.737123276812235*^9, 
  3.737123281497859*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"eb129744-6a2f-4160-84ae-e4cd50603cde"],

Cell[BoxData["\<\"figureG1a.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.70791573446786*^9, 3.7079214360807047`*^9, 3.707923281821678*^9, {
   3.70799132490079*^9, 3.7079913291587715`*^9}, 3.707991549140212*^9, {
   3.7079916152915416`*^9, 3.707991627779276*^9}, 3.7088604554949336`*^9, 
   3.737123282734975*^9, 3.737890606284627*^9, 3.745734924946558*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"45220841-5992-4645-a027-92923534a4ee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figureG1b", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"prinv\[Beta]", "[", 
       RowBox[{
       "0.5", ",", "0.4", ",", "\[Beta]", ",", "0.4", ",", "0.02", ",", "50", 
        ",", "0.01"}], "]"}], ",", 
      RowBox[{"prinv\[Beta]", "[", 
       RowBox[{
       "0.5", ",", "0.4", ",", "\[Beta]", ",", "0.4", ",", "0.08", ",", "50", 
        ",", "0.01"}], "]"}], ",", 
      RowBox[{"prinv\[Beta]", "[", 
       RowBox[{
       "0.5", ",", "0.4", ",", "\[Beta]", ",", "0.4", ",", "0.02", ",", "50", 
        ",", "0.2"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", "0.8", ",", "1"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Beta]\>\"", ",", "\"\<Pr(invest)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"0.8", ",", "0"}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"12", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"18.5", "cm"}]}], ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Monochrome\>\""}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", " ", "14"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", "Thick", "}"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"LineLegend", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(\[Theta]\), \(2\)]\) = \
0.02 and \!\(\*SubsuperscriptBox[\(\[Sigma]\), \(u\), \(2\)]\) = 0.01\>\"", 
         ",", "\"\<\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(\[Theta]\), \(2\)]\
\) = 0.08 and \!\(\*SubsuperscriptBox[\(\[Sigma]\), \(u\), \(2\)]\) = \
0.01\>\"", ",", 
         "\"\<\!\(\*SubsuperscriptBox[\(\[Sigma]\), \(\[Theta]\), \(2\)]\) = \
0.02 and \!\(\*SubsuperscriptBox[\(\[Sigma]\), \(u\), \(2\)]\) = 0.20\>\""}], 
        "}"}], ",", 
       RowBox[{"LegendMarkerSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"30", ",", "10"}], "}"}]}], ",", 
       RowBox[{"LegendLabel", "\[Rule]", "\"\<Variances\>\""}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"GrayLevel", "[", "0.3", "]"}], ",", "Bold", ",", "16"}], 
         "}"}]}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.707991336412697*^9, 3.707991401327566*^9}, {
  3.707991456011076*^9, 3.707991494648761*^9}, {3.707991590381542*^9, 
  3.7079916027389917`*^9}, {3.7079916436198874`*^9, 3.7079917049710207`*^9}, {
  3.707992097297127*^9, 3.7079921051570067`*^9}, {3.707992148132181*^9, 
  3.707992221067855*^9}, {3.7371232851056156`*^9, 3.737123287484789*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"aefa8f6a-dc75-4854-8097-3e838e602d31"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVznk01AkAB/BplGNCtoNiWyq6HLtL2q3UV4PaVpp0PVGZJ/aR52hqcycl
UY7KMc50h4myinWVasV08RsyaDDG+Zvr50mxuXb2j+/7vs8f3/e+K7yC9vnQ
aTSaiyr/967UNzlZWSQmOusCuAtIMLN/hGE2Cc5ZI8tpHRJ2t9Ik2Sqfj7g6
5aVNwurRsXW5OSR4FfVvrbRILH47Wn4jj0RgKdO8gU5CTDcS3LlFIqvsL8W3
L8MI5fhrlhSSqPi+KSxQNIwCV+0/X1aSaOa7hV8sHIYxMfMhX0QigwmfqS3D
8FFfW2o5TeLYdePuZ21D2Ppl3rKly6Xg3i5t4JwegsW9tDkVkKK4xXGlmDEE
KcOdo86WItXa2mx/4SDqfm4+zrggxVaTvNYH9oNYs3Cy88Q9KRhDh9+NdA7g
aMGRzoh6KYZ/Gfl9MnIAvNlA9+3DUjQ8+Fq7ZOkAGrX/9qrQlCFDU6f8Q1U/
zrQ8HUlYK8NmsV2vLbsfdh7es3rOMlh3jEa1z/SByNyV8Zu/DD7PSkxFd/sQ
xe0p3pAsQ65jwyY49qGatd456rEMmpKMm/sHJWis5QWfaZYh4HMbPSlFAoW8
S9/0swxCjUBPlrUEYmKH0/lFchTRdUUGol7IQthjaRvlcJeELLoS3Yt4odW6
uYfleBydE5po1osxuc3gqjA54PyDwkMgRsgrctVEjhxxz7eZTIeKwWe1kZE1
cszGJFxnrRajOD3E9phIjhATXy0FrwcFufw5YzOqvW5T75rZbnAO7zu02ViB
mEjjq56e3TggvGJuy1SgXzifqivrQqNueFyitwK87j+qCe0uMKZu+KXFKiB/
M8aP4IjgXXT6/d4HCqgZBI+nv/uEJN2YytoGBZyng7fo23zCTgum+aUhBTTi
XpztyevEsvlPls9jKBEfudDBY7oDVflHMm3WK5H5a0OGxLcDp748TdV3UUKv
Seqwn9+Ob7QdBkUBSvDz9p3Kt23HoteXTbKTlCguH8uj3xfCcfe5om2PlbAw
YL9Pmi+EQ/zDmtRmJQjOM+/8yDa4X0xg5X1W4gCt+rV230eo2Rn5qulT4Dop
w7kuHxFR0KdpuJFCWJChxsFXrWC0HVk/4EbhYMDGO0VWrfCt1G5lh1GgYreZ
ad5rgduhk2qbsig0JqaoWRq3wPNJXFl9NQXfSc/2lSkC2DYKZHQRBbUShmur
lgBWlYbi6yqnm+iEXtAQYHWRV+vKLgpz90yVWc8TQD9xtIbZTcHcP/fENZoA
E6yFyefFFIwe/SNgjROoEbr+RB+gwLtbm9TcT8BhqPn0HCWFXanc+73PCdi1
L/W7prLlKR2/1FoCG/jsoyso1d8Xu+2dqgmY8kacto9Q+LRzlWVhOQH1ID2D
mFEKTlu+o3GKCbz5yqqkjVNosZlM0Mgh8HKIW3xV5RG/2MyqTALV7T23TCYo
lMTVVwdkEHhYFXTZ/l8KHxf727deI5B8NsXj3CSF43JT5u14AnFBQpbeFAWN
uj1fD8YRiGYbO95UOad2zXOtWALBzEcWddMUSjskySejCfjajJvsnaEwwX+Z
bhZFgG2KJWKVb19yKe0IJ+C25JJW8Kzq32RMb1IoAVf1pulZlbMWeK5mniHw
H2K1g5Q=
          "]]}, Annotation[#, "Charting`Private`Tag$6974#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{6, 2}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVzms0lAkAxvFhZC2dsmyKjkW1KSnd6NgzeWqSLlOkECGzjI1SqJauSjFS
kZAalGgVymo3xYQUJZPaUMs7mPuU5vpKKqUZO/vhOf/z+/Y4RcZvjjamUCgb
Dfu/6/KeFXE4ChzZLb7XkSEHvdANdoUKeDZnFejZctBK86WFBj9avjZlkcEL
arbPLS5SoKdfGn0xTY4fO4bvXbmsQF1w6YWoVDnExtO7r5Uq8DyEn6Q7JMeB
vbvM/qxUICx7kLZsjxwV/hN/b+Eq8I7l2tQSIIdDl/6fkgEFGKUli/X2ckSb
zvlrvk4BN97k+AiVDMs/TrCdZq/Ehi4iyvO+DK7l+UZ1UKIndsYPCekyKM23
7TVlKrHelpNbGSDDw0WdUeYnlXDI8VVucZTB2Wqsb2e5EukfXH87oJEivCKs
7/ATJUamHyg/+kCKm+N7tq18p4Rsy5jQ/KwU7RPrI+vMVGCkmYbuCJci6dXd
ocw5KtgnXBmyWygFLZQ1bslQgRP3xStuXIKuS+sK1u5SYXHEVqs93RIcvSiq
Xpqtgm+ZrNihTIIGPxfG0dsqmCQyOufuk6C96WZCUqcKdQd3pbatkUCjFtjM
+qCCilpX42wrgbjLZ/UJazUCjb7TWmjFUCUzR/I91Jj/viHzSbMYp3oXzDUJ
UYNo3khryxVjRL3k7cyDalz9+dyn+bFiJLcqZo4WqdEa4ZCTQhOD59ejONKo
BuWRN8/ZWozqC8nu2wfUoFnWpn36V4SKYp7RiF6NnzIGh/KOibA3ZHPQLw4a
rHgwub3GTYSA3jPz3OkaDKvSk8V8IdonHWKfZWkQGH9HEMMWwvzbldj8NA2S
or/Kl3sKwara/2LTDQ1SLerH1r8VIGtSKrfpqQblKfX2ZzgCrHGlz8sY1IDa
ymwmfQWwtai1n2CuhbdXZmm1fgD3S8IuLXHRglEcxUisHcC+j3fzbDZqcWrH
x9JK1gC+UnymVu3WQu5byX1pNwDrttOOhVlaBIV+9TV61Q/vDcervG5rUWBx
+21bej9WnbrVmNepRYxnxN9+Xv3Ylp7pd/mDFi7Hw6PY7/tApU2PodqQ6JiR
3NRxvQ+HK2Rmdh4kGpdlnaz6tQ/mPWEub4JJVHkU+QdO7UMMd+Jr5kESyfQS
q7RuPoKDEqmeHBKstqepBef4iKhl33nSQKJW5xZ3fg0f7u3dKuMBEkZb0+co
TfhYwLUT5xq8Pse08RGVj9lVka9nCEgYO+tDOMZ82JwdbqQLSVxw9727lsLH
qJ9V9gkxiaytkYobYwQae/0XGr8hEdgt9IkZJrBqsHO/kZbEHzzGqyERARox
Lfa8wQVcdi1PSGApjxnuRJL4zJx9tUxAYNbNodUrh0horp0vCOgnYBpvOTV1
mETZZTMKt4fAs09+XMpnEgqO7vHJFwRaBi9W5xg8upS+Ifw5gQZCVOo4SiKo
VSrw6CBw63786RVfSOw87e6obCeQnXIu9PgYiUVJVk7+jwmw43v9LL+RoDKd
x1xaCRxjOnhfNfiFME9k0kIggV7j+lBHgohLfFrfTCBmyWfHTXoS31iSZ7kP
CDBnYYrY4M7W60RcE4HgKRnfJ4wb/ukeDvk0EvA3fakbN/h5hpu1UwOB/wCN
MowI
          "]]}, Annotation[#, "Charting`Private`Tag$6974#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          AbsoluteDashing[{2, 2}], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVzmtUjAkAxvGpdDHaJCq6bKPLStqwIZKejLJrY0c4lVLNtoPoMO2UQona
lcwWYra7S8dRmdFlbaQLp5U0idQ73VWm+7xzezvJSqSd/fCc5/y+/ZeHc/cc
1KbRaLs0+/93XHuRl5NDYk3FzvLbWSSYuathkUtCGFDEnZ9JwqNAMJSrcfU+
K3AFJFzKQlfm55EYvuJntDmDxJLmyYc3rpMo5Lcck/BJSLUtidsFJNrSPNfo
J5I4yYs0KL1LgnofVHuaQ6LYz/DE0yoSBrdHajPWkrBp+9Jys49Ei2VzkcEz
GQ7qOf717SyJzEgRozlUhi3vdZcttZbjdfwW+tnP43C+I9CqhByj91o5yqvj
kNODeHpsOZoXPDkctnYcdWtbf6H/JseJj47mFeIxrDD51Hv0jhzMulGj2fAx
hBQf6I1vkIOxKCFdX3cMornjQVtlcsydS6bZ3hqF2PBReKWBAi2D2dO9zFHE
Sh5MXHRUgFcltmPKRuARzJkz9lXg6P3EupGUEbRl78j8IVKB61nuh2XOIziT
9bZk3SUF2q33Jvi+HEYNy8n3TLkCXjW2w2HHhyF+LIqKbVXgzstwnxzzYaiU
/Wb27xRYOPixILh6CNK27T7Ji5UYepPztT1nCIo49pRggxJXa3T8s/SHkNrl
snLefiVkgStqsksGMaV0HbM7pUScvXB1RNAg4upJu+k8JZ5kvwifrzWIJlYn
mVCrhFuwaUdwqRQlf8atD+1TIppEo3aoFMX5TVpTX5QIYEe73tKXgrd/j7+7
jQoTLm6mJ7lvsa/rj1XrmSrs5dvF9NQPQGx0OiWNo4JFRqKX3GoA9M83jgh+
VyH4jCFLkNwPjjDm1e4iFXhNFxJK+/qQbpRU9bhRheqy1DqXbX343pm56sK4
CrEbe3SmS95g2YIKa126Gh9cnMTRX71B9c0D2a5OaugrBiw/nexF9PsH18x2
qXE2SbspsqcHM7Tt5sJjamzcfXS60qcHi5/zGbnpalgdMbSzfNgN753nhJ7l
auQ1xe0ptOzGttR7tdda1fBy6CQr07oQdP4i6/o7NervE74O7zqh42EZoWNG
QW9al1Ye0on44mEDiw0UZMu/Szsm6QC984DTaCCFZzY/OdZ7diCiyrCdfYpC
qJu/kPGgHYH+v+psyqHghqJUn9XtCKtI+buhhkJXSVzI5psSrBcTCu0+Cjy2
badymQQuVRbSqxrPk9jP5plL8I0wvN22n0I0bckmX1MJzNIma5kDFHKtK6i7
xhJMs0wuJUsp8H/uC4jQl6C2y2+N9igFi4AOE3KKwLbx1hgtNYVHPmWrZl4T
8OheeiRD43wHB7XoFYF1TeyQ5ZSmN4bTENJMwF404bN1gsKPM+73/3lOQI9r
bJ40SaFC5Xie/5jAi39ZVbQPFJhjJgsZIgJPx7NKrmgcZpVvLSkmUNP9toAx
TcF6U79XSiGBe9VcvtdHCt6NyQ3KAgKXEi8Hn/tEgbjh0VidTSCF28Uy/kwh
lnco/ngmgbNsG+9bGtOj4G0rIBDFLHOum6XASJtZzL9MIML1A2P3FwqHE3ot
PNMJsO1hKtV4kfvBDZN8AoGmF+ZHzWn6SnMOFaYS8NN7PTunscHTWFFQCoH/
ALUnd5s=
          "]]}, Annotation[#, "Charting`Private`Tag$6974#3"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0.8, 0.}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"\[Beta]\"", TraditionalForm], 
       FormBox["\"Pr(invest)\"", TraditionalForm]}, AxesOrigin -> {0.8, 0.}, 
     AxesStyle -> GrayLevel[0], BaseStyle -> {FontSize -> 14}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> GrayLevel[0], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0], 
       AbsoluteThickness[1], 
       AbsoluteDashing[{1, 2}]], ImageSize -> 524.4094488188977, 
     LabelStyle -> {12, 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.8, 0.9999999959183673}, {0, 1}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(\[Theta]\\), \
\\(2\\)]\\) = 0.02 and \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(u\\), \
\\(2\\)]\\) = 0.01\"", 
       "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(\[Theta]\\), \\(2\\)]\
\\) = 0.08 and \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(u\\), \
\\(2\\)]\\) = 0.01\"", 
       "\"\\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(\[Theta]\\), \\(2\\)]\
\\) = 0.02 and \\!\\(\\*SubsuperscriptBox[\\(\[Sigma]\\), \\(u\\), \
\\(2\\)]\\) = 0.20\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox["\"Variances\"", {
                 GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, 
                 FontFamily -> "Arial"}, Background -> Automatic, 
                StripOnInput -> False]}, {
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{6, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{2, 2}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {30, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontSize -> 14, 
                    Opacity[1.], 
                    GrayLevel[0], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    AbsoluteDashing[{2, 2}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {30, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.086] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          GrayLevel[0.3], FontWeight -> Bold, FontSize -> 16, FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"6", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"AbsoluteDashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.3], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.2], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.3`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.3]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.3], Editable -> False, Selectable -> False], 
                 ",", "Bold", ",", "16"}], "}"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Variances\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"30", ",", "10"}], "}"}]}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.707992222442583*^9, 3.708860457158592*^9, 
  3.7371232892063046`*^9, 3.737890571032583*^9, 3.7378906064096284`*^9, 
  3.745734925025578*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"33b3fb34-7911-4d7f-bfe2-ab6fcead61d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<figureG1b.pdf\>\"", ",", "figureG1b"}], "]"}]], "Input",
 CellChangeTimes->{{3.707991725897024*^9, 3.707991733658534*^9}, {
  3.7371232920382185`*^9, 3.737123296231881*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"b03b45d4-a788-4836-bc66-25ee76e5e8e4"],

Cell[BoxData["\<\"figureG1b.pdf\"\>"], "Output",
 CellChangeTimes->{3.7079917348889666`*^9, 3.7088604614265537`*^9, 
  3.737123297185234*^9, 3.7378906066752405`*^9, 3.7457349252914476`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"fc41eaa0-408b-4034-b4d6-d513bd2e24d4"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{958, 988},
WindowMargins->{{Automatic, -7}, {Automatic, 0}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 330, 7, 216, "Title",ExpressionUUID->"4635d7b6-b396-4c99-a067-89100240e7aa"],
Cell[913, 31, 402, 10, 100, "Text",ExpressionUUID->"1d49a68f-38c7-4b00-868e-72f167e973c3"],
Cell[1318, 43, 565, 14, 166, "Text",ExpressionUUID->"ef4cfd5b-ff28-462c-bd6b-bc3585290e50"],
Cell[CellGroupData[{
Cell[1908, 61, 375, 8, 28, "Input",ExpressionUUID->"1f2cdd7f-cf20-4b5d-9ef9-d0d6b6932f0b"],
Cell[2286, 71, 378, 5, 32, "Output",ExpressionUUID->"5aad8b8e-ba49-4758-8a62-44ad1fff5b17"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2701, 81, 415, 8, 28, "Input",ExpressionUUID->"9f4fa410-a465-4718-999a-6db33fba0329"],
Cell[3119, 91, 527, 7, 52, "Output",ExpressionUUID->"31241c63-0b06-4ede-bd58-27d68881b39b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3683, 103, 163, 3, 67, "Section",ExpressionUUID->"51227698-1906-47de-8592-9ca843394c0e"],
Cell[CellGroupData[{
Cell[3871, 110, 164, 3, 53, "Subsection",ExpressionUUID->"db4f3aca-d6de-4d0a-a66b-020266b69576"],
Cell[CellGroupData[{
Cell[4060, 117, 477, 12, 28, "Input",ExpressionUUID->"400843a7-d3ad-4ef4-a46a-faa7741c84d1"],
Cell[4540, 131, 2010, 52, 61, "Output",ExpressionUUID->"78b46416-9390-43bb-ba19-3e83800a7c9d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6599, 189, 179, 3, 53, "Subsection",ExpressionUUID->"b00560e8-ae87-4604-801c-4f4100ce5f36"],
Cell[CellGroupData[{
Cell[6803, 196, 329, 7, 28, "Input",ExpressionUUID->"a1371296-1b18-4329-ae69-3ca047cff388"],
Cell[7135, 205, 497, 8, 32, "Output",ExpressionUUID->"525d8c10-2470-4e6b-bb0b-25a667cacade"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7681, 219, 167, 3, 53, "Subsection",ExpressionUUID->"fbb91763-8698-4d68-8045-1739fb4b4756"],
Cell[CellGroupData[{
Cell[7873, 226, 1573, 39, 55, "Input",ExpressionUUID->"1e1a9ea9-88ca-4ee1-b2f1-d814d071c14f"],
Cell[9449, 267, 3083, 77, 75, "Output",ExpressionUUID->"aafc43ee-5465-41db-853d-dc5a646b7be2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12569, 349, 1422, 37, 77, "Input",ExpressionUUID->"8151f728-2e3a-44d7-8ef3-022d1a66806a"],
Cell[13994, 388, 2955, 75, 75, "Output",ExpressionUUID->"b56f2c5e-0bd3-4dfd-9015-a591480e2a07"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16998, 469, 173, 3, 53, "Subsection",ExpressionUUID->"0df8bfc4-2af7-4d51-9cc2-bf40c010e8ce"],
Cell[CellGroupData[{
Cell[17196, 476, 313, 8, 49, "Input",ExpressionUUID->"99d2fcf1-a7bb-4052-9b46-0dd3e5f596de"],
Cell[17512, 486, 358, 7, 58, "Output",ExpressionUUID->"1f7560d1-8f4f-47bc-9308-f5c4d2ce1bd9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17907, 498, 275, 6, 28, "Input",ExpressionUUID->"87430cc8-45e2-4b2e-8e8f-7a3fbf0bcb9b"],
Cell[18185, 506, 294, 5, 32, "Output",ExpressionUUID->"6af32378-f244-4cf6-ac84-0800dd5ba824"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18528, 517, 165, 3, 53, "Subsection",ExpressionUUID->"975aebae-5673-495e-9cd7-3f6990bf3814"],
Cell[CellGroupData[{
Cell[18718, 524, 719, 20, 28, "Input",ExpressionUUID->"077ea026-e6fb-4f1c-8898-87a8d745dc25"],
Cell[19440, 546, 2198, 60, 87, "Output",ExpressionUUID->"4f5278fe-eba2-49a7-8d3b-8d9d89d161d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21675, 611, 403, 10, 49, "Input",ExpressionUUID->"bfb15198-11bb-4f65-b13f-ad637f482acd"],
Cell[22081, 623, 2543, 67, 112, "Output",ExpressionUUID->"3a17c83c-7917-4a83-afbd-19426e86edec"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24673, 696, 173, 3, 53, "Subsection",ExpressionUUID->"45cb30a8-d018-407a-880c-ed0f07a2e86e"],
Cell[CellGroupData[{
Cell[24871, 703, 1399, 39, 124, "Input",ExpressionUUID->"7860c33f-69de-4b24-8e13-9ea51f766e93"],
Cell[26273, 744, 1484, 37, 109, "Output",ExpressionUUID->"59c45dd6-763d-49d8-8b32-16c55d5417c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27794, 786, 1402, 39, 122, "Input",ExpressionUUID->"3088f7e3-e93e-41b6-9d2d-3f157d69386d"],
Cell[29199, 827, 1545, 39, 109, "Output",ExpressionUUID->"9ca708be-6805-4acd-a8b2-5d0a471b31dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30781, 871, 1651, 47, 124, "Input",ExpressionUUID->"fc4ad96b-1133-4892-ad7d-8d980c2e6b68"],
Cell[32435, 920, 1652, 45, 109, "Output",ExpressionUUID->"c4e89b30-9dcd-4008-9945-b5395dab2ff0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34124, 970, 1335, 33, 77, "Input",ExpressionUUID->"57f5453f-3476-449a-80f8-f990b38424bd"],
Cell[35462, 1005, 8781, 212, 441, "Output",ExpressionUUID->"200e74e0-1e5b-45b7-bab8-00069178ef95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44280, 1222, 1479, 35, 77, "Input",ExpressionUUID->"a79aa633-d790-4abf-ba12-beae456432b7"],
Cell[45762, 1259, 8342, 198, 519, "Output",ExpressionUUID->"bab260fa-5f16-4bb9-bdd0-d6213d201fba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54141, 1462, 1388, 34, 77, "Input",ExpressionUUID->"6b2d2c65-cd83-470c-99e9-0e8ac79c7d72"],
Cell[55532, 1498, 8322, 198, 519, "Output",ExpressionUUID->"47045b8e-92ae-47e4-8b98-1c2055c5f820"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63903, 1702, 174, 3, 53, "Subsection",ExpressionUUID->"53370d49-bd22-4592-9737-60fd6599c7db"],
Cell[CellGroupData[{
Cell[64102, 1709, 468, 12, 55, "Input",ExpressionUUID->"47f9c7ae-c9e5-40ea-824b-05b0026e5156"],
Cell[64573, 1723, 448, 10, 59, "Output",ExpressionUUID->"759c894b-9bac-4f93-825c-7781e8b8be36"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65058, 1738, 1621, 43, 124, "Input",ExpressionUUID->"309f4cdf-cc7f-4c86-8631-078695f00701"],
Cell[66682, 1783, 1885, 50, 109, "Output",ExpressionUUID->"038b138a-5ac8-4a3a-870d-b1d6362195c0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[68616, 1839, 165, 3, 53, "Subsection",ExpressionUUID->"a028e33f-62f8-48fa-85f0-46802c48a7a8"],
Cell[CellGroupData[{
Cell[68806, 1846, 1117, 33, 55, "Input",ExpressionUUID->"0f9af633-3216-4aab-803c-69dc8d8518a0"],
Cell[69926, 1881, 8198, 199, 189, "Output",ExpressionUUID->"bbc50172-d399-4a59-b6a1-83c6f07faf92"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[78173, 2086, 187, 3, 53, "Subsection",ExpressionUUID->"bebff273-a318-470e-b0a7-c519bdc52be5"],
Cell[CellGroupData[{
Cell[78385, 2093, 667, 18, 51, "Input",ExpressionUUID->"37ccb9b2-7b60-44fd-bbe2-a6bf6b838c96"],
Cell[79055, 2113, 479, 11, 23, "Message",ExpressionUUID->"27422072-e250-4d07-a57a-1769c1432863"],
Cell[79537, 2126, 3119, 79, 123, "Output",ExpressionUUID->"35a1f4f3-73b1-42bd-a9be-e229fb0a3f7c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[82705, 2211, 171, 3, 53, "Subsection",ExpressionUUID->"d5fa99f7-37a1-4b64-a5c6-63c3539dc4e2"],
Cell[CellGroupData[{
Cell[82901, 2218, 754, 19, 51, "Input",ExpressionUUID->"75df9d19-0bfd-46c8-aa43-80281368d76f"],
Cell[83658, 2239, 854, 21, 75, "Output",ExpressionUUID->"2227d374-bc41-4568-8fe4-a749594f4a6b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[84561, 2266, 169, 3, 53, "Subsection",ExpressionUUID->"69cba7a3-c525-4833-975a-29289ad0e433"],
Cell[CellGroupData[{
Cell[84755, 2273, 613, 15, 28, "Input",ExpressionUUID->"22dd369c-3b0d-40f3-891e-6a7d79949887"],
Cell[85371, 2290, 2650, 68, 269, "Output",ExpressionUUID->"ec9c7395-831c-49e4-9017-8ca8d1bc004f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88058, 2363, 724, 15, 28, "Input",ExpressionUUID->"fdc68af1-4ed1-4615-9383-7e861ba20481"],
Cell[88785, 2380, 514, 11, 23, "Message",ExpressionUUID->"285ab916-1cf4-41a3-9d22-5ba5deb081be"],
Cell[89302, 2393, 514, 11, 23, "Message",ExpressionUUID->"bd748651-b0fe-4414-9b77-47dab9ea7af9"],
Cell[89819, 2406, 514, 11, 23, "Message",ExpressionUUID->"37c52e57-7653-40ed-935b-bba5be4aba74"],
Cell[90336, 2419, 448, 10, 21, "Message",ExpressionUUID->"61e92a36-bb47-4a3a-bc95-251d89f359e8"],
Cell[90787, 2431, 568, 12, 39, "Message",ExpressionUUID->"0938475e-1ff2-470b-9530-8a7e575b1197"],
Cell[91358, 2445, 3287, 49, 134, "Message",ExpressionUUID->"7d188cbf-e436-43b6-b096-181980055c01"],
Cell[94648, 2496, 3272, 49, 134, "Message",ExpressionUUID->"7b95bc06-1016-4e0f-88f4-c00535e91b93"],
Cell[97923, 2547, 3281, 49, 134, "Message",ExpressionUUID->"4ac16f88-83c6-4bb0-b866-1754fcddb3f2"],
Cell[101207, 2598, 443, 10, 21, "Message",ExpressionUUID->"b013d76e-c7da-4f59-a18e-b4bf831a0a8a"],
Cell[101653, 2610, 3002, 75, 269, "Output",ExpressionUUID->"93a5922d-afc9-4bb0-8f2a-5010b62e155c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[104716, 2692, 244, 4, 67, "Section",ExpressionUUID->"af0ce714-ca9d-47f5-a4ca-22fa8f0a9ba0"],
Cell[CellGroupData[{
Cell[104985, 2700, 4305, 111, 143, "Input",ExpressionUUID->"3d7f81e0-9660-4788-be78-d777671a1a9a"],
Cell[109293, 2813, 6630, 147, 349, "Output",ExpressionUUID->"6f9d6299-3f26-48c1-90df-e4f13028803b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115960, 2965, 253, 4, 28, "Input",ExpressionUUID->"edf5e6e7-4c43-40b6-928f-ed860b1c96b5"],
Cell[116216, 2971, 311, 4, 32, "Output",ExpressionUUID->"32991b79-4d01-4dc9-b91f-48d7001c3293"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[116576, 2981, 297, 4, 67, "Section",ExpressionUUID->"9cc85752-8a42-43b8-8c29-ea169e9625d4"],
Cell[CellGroupData[{
Cell[116898, 2989, 5886, 153, 242, "Input",ExpressionUUID->"09272912-09b5-40e7-b29c-d4a534841bf1"],
Cell[122787, 3144, 21023, 430, 353, "Output",ExpressionUUID->"ca6382e1-b4da-4f39-b4e8-2658961f2d95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[143847, 3579, 1674, 42, 114, "Input",ExpressionUUID->"d39c7886-39f0-421f-9ad2-71db9782ee02"],
Cell[145524, 3623, 3118, 72, 364, "Output",ExpressionUUID->"eeca02d4-5583-4778-8b45-d021b7d2d6ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148679, 3700, 421, 7, 28, "Input",ExpressionUUID->"2ead5959-8191-474b-ae4e-3191db7ac22e"],
Cell[149103, 3709, 21842, 452, 353, "Output",ExpressionUUID->"9426b76c-1a18-4c94-9704-fe6a5afea278"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170982, 4166, 357, 6, 28, "Input",ExpressionUUID->"bfd6db91-0067-4dce-8d9f-c47d9794e63e"],
Cell[171342, 4174, 385, 5, 32, "Output",ExpressionUUID->"92d31490-8d13-4c87-8a66-5427bb9704dc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[171776, 4185, 295, 7, 105, "Section",ExpressionUUID->"63970b28-3040-41e4-a486-5e7b8bfb1f03"],
Cell[CellGroupData[{
Cell[172096, 4196, 6717, 162, 280, "Input",ExpressionUUID->"3ef09d4a-bec1-45bb-be20-4382a6124f55"],
Cell[178816, 4360, 27289, 553, 353, "Output",ExpressionUUID->"0c3921cd-0bf8-499a-92a2-9e05ce5fd608"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206142, 4918, 1781, 44, 114, "Input",ExpressionUUID->"39d138da-39e1-4eff-a242-fa0d988fb180"],
Cell[207926, 4964, 3131, 72, 364, "Output",ExpressionUUID->"7e5cd73f-700a-4cc0-b343-39688e6798b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211094, 5041, 1683, 42, 114, "Input",ExpressionUUID->"1349f1f0-09ff-4ed7-82f6-5bd073a7a4ff"],
Cell[212780, 5085, 2873, 68, 364, "Output",ExpressionUUID->"b341c2da-ae8d-4c39-9b10-f0a9688ac5b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215690, 5158, 339, 6, 28, "Input",ExpressionUUID->"6eb0fdee-de74-4779-97ad-4204106abc09"],
Cell[216032, 5166, 29690, 605, 353, "Output",ExpressionUUID->"b363abb2-041c-4758-b414-638a80cb13f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245759, 5776, 362, 6, 28, "Input",ExpressionUUID->"5cd3aa04-fdec-4982-9648-3c65c79a8883"],
Cell[246124, 5784, 334, 4, 32, "Output",ExpressionUUID->"407945ce-9153-4e68-adc8-d01655a1c93f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[246507, 5794, 245, 4, 67, "Section",ExpressionUUID->"4c0fc732-88a1-4cb4-ba8b-41386f22bbdf"],
Cell[CellGroupData[{
Cell[246777, 5802, 2768, 62, 124, "Input",ExpressionUUID->"8c027bc0-cdff-4a7b-b191-59a5cf6d0c65"],
Cell[249548, 5866, 20002, 402, 362, "Output",ExpressionUUID->"6a171733-1a08-4b38-be83-ea9f1e3d6a35"]
}, Open  ]],
Cell[CellGroupData[{
Cell[269587, 6273, 359, 6, 28, "Input",ExpressionUUID->"eb129744-6a2f-4160-84ae-e4cd50603cde"],
Cell[269949, 6281, 436, 6, 32, "Output",ExpressionUUID->"45220841-5992-4645-a027-92923534a4ee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270422, 6292, 3025, 68, 136, "Input",ExpressionUUID->"aefa8f6a-dc75-4854-8097-3e838e602d31"],
Cell[273450, 6362, 25864, 520, 362, "Output",ExpressionUUID->"33b3fb34-7911-4d7f-bfe2-ab6fcead61d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299351, 6887, 306, 5, 28, "Input",ExpressionUUID->"b03b45d4-a788-4836-bc66-25ee76e5e8e4"],
Cell[299660, 6894, 268, 3, 32, "Output",ExpressionUUID->"fc41eaa0-408b-4034-b4d6-d513bd2e24d4"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

